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I INTRODUCTION 

The pnognams presented here one set out &on. the. individual who has a specific 
weed in mind. Because a detailed discussion o& these pnognams would n.equine a 
text sevenal time* the. pnesent size ofa this, libnanjy It has been omitted. Indi- 
viduals who have a specific nequin.ement will have to be cut least knowledgeable, 
in the aAea the pnognam is wnitten about; let Statistical pnognams n.equiA& the 
usen. to be Tamilian, with the terms mean, median, eta. This is because the pno- 
gnams one wnitten In the vernacular o{ their subject matter. With this know- 
ledge alone, no pnognamming expedience on the pant o& the usen. is n.equire.d in 
onden. to use any oi these pnognams in most systems. Once iX is determined that 
a panticulan pnognam may be useful the usen. merely types in a copy o$ the BASIC 
souAce code exactly as it appears in the pnognam listing. Then $ollow the in- 
structions ion nunning the pnognam as pnesented in the Imtnuction pontion o& 
the wnite up, immediately pneceding the pnognam. Also included in the wnite ups 
one statements that appean in the source code which may possibly need to be 
changed to nun in the useA's computer system; ie: RhtD statements may have to be 
changed to FRAWP in onden to compile in certain systems. 



PUBLISHERS NOTE: Appendix B included at the end of Volume V was not 
mentioned in the preface by the author. We feel this appendix is 
the most important single item included in this library. We see 
this appendix as a fore runner that might lead the way toward 
standardizing a computer language among the manufacturers,, This is 
in addition to the obvious benefits to all users of this Basic 
Software Library. 
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Preface 

Part 1 
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Bond 

Building 
Compound 
Cycl ic 
Decision 1 
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Interest 
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Optimize 
Order 
Pert Tree 
Rate 
Return 1 
Return 2 
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Business & Personal Bookkeeping Programs 

DESCRIPTION 

Computes price and interest for bond purchases. 

Analyzes the cost of building design proposals. 

Computes effective compound interest rates. 

Determines seasonal coefficients for two cycles. 

Makes a lease/buy decision for you. 

Makes a decision on whether to buy a component or make it. 

Calculates depreciation by k different methods. 

Cal. the most efficient assignment of resources and/or personnel 

Predicts your yearly cash flow. 

Performs monthly installment accounting. 

Computes interest accruals, monthly. 

Computes annual rates of return on investments. 

Makes a comparison of mortgage terms. 

Optimizes the layout for a plant, shop, office, etc. 

Determines your economic order quantity for inventory items. 

Performs an analysis of a pert network. 

Computes true annual interest rates. 

Computes lessor's rate of return for uncertain assets. 

Computes a lessor's rate of return after taxes. 

Schedules N jobs in a shop with M machines. 
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Animals Four 

Astronaut 

Bagel 

Bio Cycle 

Cannons 

Checkers 

Craps 

Dogfight 

Golf 

Judy 

Line Up 

Pony 

Roulette 

Sky Diver 

Tank 

Teach Me 



Games & Pictures 

DESCRIPTION 

Teach the computer all about animals. 

Land your spaceship on another planet. 

Advanced number game, numbers may be algebraic, few clues. 

Calculate your Bio-Life Cycle and plan your days. 

An advanced war game with big guns. 

Plays a regulation game of checkers. 

A dice game with hard way odds. 

Air fight w/missiles; betweeen a phantom and a mig. 

Plays any number of holes; inc. obstacle course. 

Have a rap session with Judy via your computer. 

Simple number game, all you have to do is unscramble them. 

Authentic horse race, any number of players. 

Gamblers delight, plays Las Vegas rules. 

Sky dive on another planet 

A war game between two tanks. 

Teach the computer to learn new things. 
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A. Newman 

J.F.K. 

Linus 

Ms. Santa 

Nixon 

Noel Noel 

Nude 

Peace 

Pol iceman 

Santa's Sleigh 

Snoopy 

Virgin 



Introduction 

He's absolutely MAD! MAD! MAD! 

Our 35th. president. 

Loveable "Peanuts" character, w/blanket. 

A modern miss to put a twinkle in your eye. 

Former "United States" president. 

Christmas or anytime this is a beautiful creation. 

A true work of art for anyone's gallery. 

A message for all seasons. 

True and blue, he's the law. 

In banner form, perfect for decorating the mantle. 

That paragon of Dogdom even plays football. 

A picture you can read as well as see. 
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Beam 

Conv. 

Filter 

Fit 

Integration 1 

integration 2 

Intensity 

Lola 

Macro 

Max. Min. 

Navaid 

Optical 

Planet 

PSD 

Rand 1 

Rand 2 

Solve 

Sphere Trian 

Stars 

Track 

Triangle 

Variable 

Vector 



Evaluates and selects steel beam sizes. 

Calculates convolutions. 

Calculates low pass filter components. 

Performs interpolations by spline fits. 

Uses Gaussion Quadrature to do integration. 

Integrates a function by spline fits. 

Calc. and plots RF or Acoustic intensities. 

Calc. Long, and Lat. from interstellar fix or distance. 

Simulates a language compiler. 

Calc. the max. £ min. values of funct. over a spec, interval. 

Calc. position from altitude and azimuth of celestial bodies. 

Calculates Blackbody energies, w/filter look-up tables. 

Calculates Sun and Moon positions, hourly. 

Calculates Power Spectral Densities and FFT's. 

Generates random numbers between and 1. 

Generates random integers between (X) and (Y) . 

Solves polynomials by "Bairstows Method". 

Solves any spherical triangle. 

Locates 50 stars (celestial). 

Calc. course and distance and incremental vectors. 

Solves for all parts of any triangle. 

Finds all variables in Basic programs. 

Calc. final position; given start and motion vectors 
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Part 4 - Plotting & Statistics Programs 
NAME DESCRIPTION 



B I nom 1 a 1 

Chi-Sq. 

Coeff 

Confidence 1 

Confidence 2 

Correlations 

Curve 

Differences 

Dual Plot 

Exp-Distri 

Least Squares 

Pa i red 

Plot 

Plotpts 

Polynomial Fit 

Regression 

Stat 1 

Stat 2 

T-Distribution 

Unpaired 

Variance 1 

Variance 2 

XY 



Calculates binomial probability distributions. 

Applies the Chi-Square test to samples. 

Calc. coefficients of fourier series to apprx. a function. 

Calculates confidence limits on linear regressions. 

Calculates confidence limits for a sample mean. 

Performs auto and cross correlations with plots. 

Fits 6 different curves by the least squares method. 

Calculates difference of means in non-equal variances. 

Plots two functions on the same sheet. 

Calculates exponential distributions for a sample. 

Performs least squares fit by linear, exp. , or power function. 

Compares 2 groups of data using the rank test. 

Plots 6 equations on the same sheet. 

Plots data points on standard teletypes. 

Performs least squares polynomial fit. 

Performs multiple linear fit with or without transformations. 

Finds the mean, variance and standard deviation. 

Computes various stat. measures for a variable. 

Calculates normal and T-distributions. 

Compares 2 groups of unpaired data. 

Performs one way analysis of variances. 

Analyzes a variance table of one way random design. 

Plots functions of X and Y. 
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VOLUME THREE 

Part 5 - 

NAME 

Bi 1 1 ing 

Inventory 

Payroll 

Risk 

Schedule 2 

Shipping 

Stocks 

Switch 
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Advanced Business Programs 

DESCRIPTION 

Performs posting and billing of accounts. 

Maintains data for inventory records. 

Computes payrolls with full set of deductions. 

Performs a risk analysis on capital investments. 

Performs the most effi. scheduling of men or resources to loca. 

Solves the problem of scheduling and assignments. 

Computes the value of stocks. 

Calculates the effects of a bond switch. 
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General Purpose Programs 
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Bingo 

Bonds 

Bull 

Enterprise 

Football 

Funds 1 

Funds 2 

Go-Moku 

Jack 

Life 

Loans 

Mazes 

Poker 

Popul 

Profits 

Qubic 

Rates 

Reti re 

Savings 

SBA 

Tic-Tac-Toe 



DESCRIPTION 

An age old favorite. "B9, C23, D4, E13, F21, BINGO! 

Computes the yields for a bond for different periods. 

If you ever dreamed of being a Matador, here's your chance. 

Take charge of the Enterprise while Capt. Kirk is on leave. 

Authentic NFL version of this well known sport. 

Calculates long-term predictions of funds. 

Plots the results of Funds 1. 

Ancient Chinese game of chance. 

Plays Blackjack, Las Vegas style. 

Life is truly a battle for survival, a real challenger! 

Calculates annuities, loans and mortgages. 

Generates unique maze puzzles for you to solve. 

Five card draw - for up to 5 players. 

Performs population projections for defined areas. 

Determines the profitability of a firms various depts. 

3-Dimensional Tic-Tac-Toe. 

Calc. the effective annual interest rate for stated interest. 

Calculates your Civil Service Retirement benefits. 

Computes savings plan profiles. 

Calculates repayment schedules for SBA loans. 

An all time favorite for young and old alike. 
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VOLUME FIVE 

Experimenter's Programs 

NAME DESCRIPTION 

Andy Cap Draws this famous cartoon character. 

Baseball Plays a full 9 innings of baseball. 

Compare Compares two groups of data. 

Confid 10 Determines the confidence limits for a normal population. 

Descrip Provides a description of uni-variant data. 

Differ Computes the diff. of the means for data of equal variance. 

Engine Calculates the otto cycle of engines. 

Fourier This program evaluates fourier series. 

Horse Draws a picture of a horse. 

Integers Computes integers as the sum of other integers. 

Logic Determines conclusions from logic statements. 

Playboy Draws the playboy symbol. 

Primes Factors numbers into their primes. 

Probal Calc. Chi-Sq. and probabilities from 2X2 data sets. 
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Solves quadratic equations 

Draws a picture of the infamous Red Baron. 

Calculates linear regressions. 

"Beepl Beep!" Draws a picture of the Road Runner. 

Computerized "Wheel of Fortune", plays roulette. 

Old Saint Nick appears as jolly as ever. 

Calculates quantities for two groups of paired data. 

Computes sample statistics. 

Calculates steel beam capacities. 

Computes cost for surfacing a road or driveway, etc. 

Performs an analysis of a vari. table; one-way random design. 

Generates a "SINGING" Christmas card. 
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VOLUME SIX 

A Complete Business System 
NAME DESCRIPTION 



Ledger 



Maintains ALL Company accounts and generates ALL financial 
reports. Includes routines for: Pyrl , Inv, Depr, A/R, A/P, 
Balance Sheets and Profit & Loss statements, etc. 
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PREFACE 

The information contained in these pages represents the culmination of a 
very large project. That of compiling a versatile and complete Software 
Library that will be of use to a large number of diverse individuals. The 
programs presented here when combined in a system will represent a very 
powerful library bank. Such a work as this has been attempted in the past 
in such areas as cook books, electronic source books, mathematical tables 
and even computer games. But to date such a collection as this has yet to 
be offered to the average individual to use as he chooses. The word "at - 
temped" was used as no work is ever considered complete by everyone regar 
dless of its thoroughness. 

The programs presented here were chosen for their uniqueness and general 
usefulness. There should be at least one program included that will be of 
use to every type of individual whether they have access to a computer or 
not. Computers are a wonderful and very useful tool. Through this Library 
I hope to interest more people into becoming involved with computers. The 
Library is written so that little or no computer programming experience 
is required to invoke any of the programs. The programs that are present- 
ed here are all written in the computer language called BASIC. Each pro- 
gram has been successfully run on a G.E. 635 computer. The entire source 
code is presented as well as a short narrative page which defines the pro 
gram, tells who might be interested in using it, a brief set of instruc- 
tions or how to get them and then any limitations in the program are no- 
ted. In the limitations section the storage length in K Bytes is given so 
the prospective user will know how much memory to allow for the program. 
Where possible the amount of memory space required for full execution is 
given for the programs, this space is independent of the space already oc 
cupied by your BASIC compiler. 

The programs are broken down into five sections or parts. Each part deals 
with a specific type of program. Part 1 contains business type programs. 
These programs will be of interest to individuals who have businesses, 
play the stock market, balance their own checkbooks, do installment buy- 
ing, figure taxes, etc. There are a total of 20 programs in this section. 
Part 2 is the lighter side of the Library as it contains 16 games and 12 
picture programs. No computer library is complete without some fun. Among 
the games presented in this section is one called Checkers. The game is 
rather long but it is virtually machine independent as it doesn't use over 
lay techniques or use files. Most of the other games included here are as 
exciting as this version of Checkers. Each was chosen so as not to mimic 
others that the reader may have seen. The pictures are as unusual in their 
own way as are the games. Most of the pictures are spread over several pa 
ges, this was done not only so the reader will need to run the program to 
see the details of a particular picture but also in the hopes of getting 
as many of these programs into use as possible. As the picture programs 
are very simple it is an easy place for the novice to start learning about 
programming. 

Part 3 is comprised of Math and Engineering programs. Some of these programs 
will be of use to high school students, professional people, sailors, engi- 
neers, astronomers, airplane pilots, etc. Most of these programs are very 
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technical but they can perform every day calculations quickly and easily 
and they are extremely simple to use. There are 23 general usage programs 
presented In t.nls section. 

Part *» Is made up of Plotting and Statistical Analysis programs. These 
programs can be readily utilized by a number of people In widely differ- 
ent disciplines from fishermen to statisticians. The data gathered may 
be from a poll, a census, a test sample or even the number of fish cau- 
ght on various days. The stat programs will be of Invaluable aid to any- 
one who gathers data of any kind. The plotting routines will be of use 
to most of the people who use the stat programs or programs in Parts 1 
and 3. The plotting Is done on any standard teletype or terminal and 
does not require a special plotter or plotting terminal. There are a tot 
al of five direct plotting programs and 18 stat programs in this section. 

All of the programs presented here may be run by simply typing the source 
code as listed, exactly as it is, into your computer. Now before the pro- 
gram will run it will have to be converted into machine code. This is done 
automatically and requires no forethought except to make certain the oper- 
ating system you are working in Is BASIC, in the larger computer systems 
you are asked what system you want — to this type BASIC; the smaller sys 
terns only have BASIC, in these you are O.K. 

Immediately following Part h is Appendix A. Here, all of the Basic State- 
ments used throughout these pages are defined. Each statement is explained 
sufficiently well to enable one unfamiliar with this subset to modify any 
necessary statements so that the program or programs will compile and exe- 
cute with the Basic compiler or interpreter available with their particu- 
lar computer. Most of the Basic compilers available today, that require 
more then 10K Bytes of storage, will execute all of the programs presented 
In these volumes with the possible exception of a few of the games and the 
program "Variable". Multiple line statements are not used in most of the 
programs and only a few programs use string manipulations extensively. A 
few of the programs may require more on line storage then is available on 
some of the small micro computer systems; these longer programs will not 
be executable due to the limited amount of memory. However most of the 
programs will execute in 10K Bytes of memory or less, thereby making most 
of the programs in this Library executable in virtually any Basic speaking 
computer without any required modifications. 

Volume III is comprised of ADVANCED BUSINESS programs, part 5. This volume 
as well as subsequent volumes are intended to make this Library complete 
and useful to all individuals. 

Each of these programs are written in a subset of the Dartmouth language. 
The specific subset is that which was used by General Electric on their 
635 systems. These programs have operated without problem on a variety of 
small and large machines even several of the new micro computers. The pro 
grams that use string manipulations may require slight modifications be- 
fore fully executing on some systems. These programs are mainly found in 
Part 2 — — Games. 
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All of the programs In this Library were written or edited by the author. 
All of the programs edited by him were given for Inclusion, "swapped" for 
traded, or made public. A few of the original authors of the "swaps" are 
not known, for this I apologize. The others, unless specifically mentioned 
in the text, are presented here. In addition I would like to thank the fol 
lowing for their cooperation in making this work possible. 
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PROGRAMS 



ANDY CAP: 

DESCRIPTION 

Here is our famous cartoon character taking time out from his daily toil 
for a bit of nourishment. The source code for this program will require 
6K Bytes of memory for storage and it will execute in 7K in any Basic 
speaking computer. 

FlN'fiY CAP 



9i?i] PRINT 

imprint 

I3Q3PRIMT 

804PPINT 

005PRIMT 

06PRIMT 

07PPINT 

08 PRINT 

09PRINT 

1 ©PRINT 

11 PR I NT" NMMNN 

1 SPRINT" NI'IMNfiriM ,! 

1 SPRINT" MMMMNMMrlM 

14PPINT" MNNririMMMMMM 

1 FiPP I NT " MMMMNMMMMMMMM 

1 APR I NT " MMMMMMMMMMMMMMM 

J 7PRINT" MMMMMMMMMMMMMMMMM 

1 8PR I NT " MMMMMMMMMMriMMMMMMMM 

1 9PPINT" MMMMMMflMMMMMMMMMMMMMM " 

P8PR I NT " MMMMMMMMMMMMMMMMMMMMMMM 

£1 PR I NT "MMM MMM MMM NMM MMM MMM" 

S SPRINT" M -■ X X X M " 

S3PRINT" M •••- X X X M " 

84PRINT" M s X X X N " 

psprint" n ••••• x x x n 

86PRINT" M •- X X M " 

P7PRINT" M ■•■ X X XN " 
28PRINT" M s X X XN 
29PRIMT" M / X X X M" 
3 ©PR I NT" N / X X M " 

NOTE: The listings presented in these volumes are all generated from a 
terminal that prints ten (10) characters per horizontal inch. In order 
to reproduce any pictures presented here, one should lay a ruler below 
each line as it is being keyed into your computer. When a space sepa- 
rates the characters; generating the picture, simply measure the empty 
distance between the characters in inches and multiply this length by 
ten. This will be the number of spaces separating the two characters 
in question. 
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31 PR I NT" 

38PRINT" 

3 SPRINT" 

34PRINT" 

35PRINT" 

3 SPRINT" 

37PRINT" 

3SPRINT" 

39PPINT" 

40PRII1T" 

41 PR I NT" 

48PRINT" 

43PRIMT" 

44PRINT" 

45PPINT" 

46PPINT" 

47PRINT" 

48PRIHT" 

49PRINT" 

59PRINT" 

51 PR I NT" 

5 SPRINT" 

53PRINT" 

54PRINT" 

55PRINT" 

56PRINT" 

57PRINT" 

58PRINT" 

59PRINT" 

60PRINT" 

61 PR I NT" 

foPPRINT" 

63PRINT" 

64PRINT" 

65PRINT" 

66PRINT" 

67PRINT" 

68PRINT" 

69PRINT" 

79PRINT" 

71 PR I NT" 

7SPRINT" 

73PRINT" 

74PRINT" 

75PRINT" 

7foPRINT" 

77PRINT" 

78PRINT" 

79PRINT" 

88PRINT" 

81 PR I NT" 



m ■ x x m " 




M ■•■■' X 11" 




!'! ..•■' ';■■■, r=1 " 

mmmmmmmmm" 




MMMMM " 




MUM 




MMM 




MMM 




MMM M 
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MMMMMMMMNMMriMNMM " 




MMM " 




MMM" 




MMM " 




MMM " 




MMM 




MMM 




MMM 




MMM 




MMM MMM 


ii 


MMM M ss p 


1 !•' 
I 


MMM ftssssss, 


V,-t'1 


MMM M ss xs> 


: xxm " 


MMM V\s/ss/s/s, 


'////////ti " 


MMM M .-v XX 


XX XX M " 


MMM M//////////V 


•s/s .••-■■.■• •.-..•' ■■'.••MMMMMMriMMM " 


MMM M XX XX > 


:X MMMMMMMMMMM 


MMM M///////////// 


'-••MMMMMMMMMMMM L " 


MMM M XX XX XXU 


MMMMMMMMMMM L 


MMM MsssssssssX J 


MMMMM 


MMM M/v XX X 


M 


MMM \ft/s/s/ss/¥, X 


Pi 


SIMM M ss MM MM 


M 


MMM M.--.--.--MM 


Mrinnnri " 


MMM MMM 


i ■ 


MMM M 


VA 1 1 

■ 3 


MMM M 


\:\ H 


MMM il.-vM 


hi '• 


MMM JV/v^/M 


M " 


MMM nsssssssss/M M 


u 


MMM Msssssssss/ssssp 


I* 



MMM M//////////////M 
MMMM.-v,-vMNMMMM^v/,-v,-t1 " 

MMM.-w -"M.-- -s/sssW/ssss/W " 

MriM.-XKXXXXXXXXXXXX^Vy^,-v,--,v-,/X..-,-v-X 
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8 £ PRINT" 
83PRIMT" 
34PRINT" 
8 SPRINT" 
86PRINT" 
87PRINT" 
88PRINT" 
89PRINT" 
9 SPRINT" 
91 PR I NT" 
9 SPRINT" 
93PRINT" 
94PRINT" 
9SPRINT" 
96PRINT" 
97PRINT" 
98PRINT" 
99PRINT" 
108PRINT" 

I IMPRINT" 
18SPRINT" 
103PRINT" 
184PRINT" 
105PRINT'* 
106PRINT" 
187PRINT" 
108PRINT" 
199PRIMT" 
118PRINT" 
HIPRINT" 
11 SPRINT" 
11 SPRINT" 
IMPRINT" 
11 SPRINT" 

II SPRINT" 
117PRINT" 
11 SPRINT" 
11 SPRINT" 
l£@PRINT ,r 
1S1PRINT" 
122PRINT" 
123PRINT" 
1S4PRINT" 
1S5PRINT 
1S6PRINT 
127PRINT 
1S8PRINT 
129PRINT 
138 END 



I'lNl't-- -■'■••' ■-•"--■ ft 

MMM!1,vvv X 

ililM X-vv X 

MMM Y^ss X 

nriM m.-v X 

MMM M.-'Vx- 
I1MM fl///// 

mmsssssss 

mmmusssss 
NMMWWWWNWWWWW 
MMMUNWWWWWWWWW 
MMMMNNWWNWWWWWW 



Mr 

h 



n 



M 



MMM !• 

MMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

1MMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

MMMM 

MMMM 

MMMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

IMMMM 

MMMM 

MMMM 

MMMM 

IMMMM 
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WMWl'JWNWWMWWWWWUWMWWM 
yi.JWNWL=JWWNWI^WMWNW 
iJHi.JWWl#JNWl..|WWW 
NNWWWWWWWWMW 
WIWWWWWWUWWW 
WWWNWWWNWWWW 
MS4#]WWWWWUiWW " 
Hi...!l,||,.|WWMWWWMM 
b.|HHWNWWWWL*JW 

HWWWWWWWHWWH" 

I.IWWWWWWMWWWW 
XX NWWMUUUWUWU 
XX HWWWWWWWWWN ,! 

x;::; !,JWWWNWNWWWW n 

XX WWWWWWNWWWW " 

XXXX WWWWWWNWWW" 

XXXXX UWWWWWWWN 

XX LjWWUlWWWWWW" 

XX WNUUIWWNWWW ' 

XX wwwwwwwwww 

XX WWWWWWkiWWW 
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BASEBALL: 

DESCRIPTION 

This is a computer generation of the game of baseball and may be played 
by one or two players. While the game is not interactive, after it begins 
it is still exciting and should provide entertainment to all baseball fans, 



INSTRUCTIONS 

After the program has been loaded into memory type RUN. The program will 
first ask you for the name of the visiting team and then the name of the 
home team. After these names have been entered the game commences. 



LIMITATIONS 

This game requires two dimensional arrays; see line 1020, for execution. 

Lines 1130, 1300, 1410, and 1420 contain ON GOTO statements, line 1890 

contains an ABS( ) statement and line 1960 a LEN( ) statement. The source 
code stores in 3K Bytes and executes in 5K Bytes of memory. 
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1888 HIM P (9? 4) ? Q f,4? 8) 
1830 MRT REFlD P?Q 

1 840 PR I NT " -— — BASEBALL " 

1058 PRINT"UISITING TEAM NAME"? 

1060 INPUT m 

1070 PRINT 

1080 PR I NT "HONE TERM NAME"? 

1090 INPUT m 

1180 PRINT 

1 1 1 a S 1 =S£=Z=H£=H 1 =8=0 

1180 1=1 

1138 ON Z+l GOTO 1140? 11 60 

1 1 40 ppTMT 85? 

1 1 50 GOTO 1 1 76 

1160 PRINT B$? 

1178 PRINT" IS UP INNING"?! 

1180 PRINT 

1 1 90 S=U=C=0 

1800 C=i 

1810 IF B<9 THEH 1830 

1880 B=0 

1838 B=B+1 

1 848 v=rnd ( -4 ) +5e;--3 

1858 FOR R=I TO 4 

I860 Y=Y-F'i'B?R) 

1878 IF Y<0 THEN 1300 

1888 NEXT R 

1898 R=5 

1308 ON R GOTO 1310? 1340? 1366? I 389? 1488 

1318 PRINT" 9 U T" 

1380 0=0+1 

1338 GOTO 1410 

1 348 PR I NT " S I NGLE " 

1358 GOTO 1418 

1368 PR I NT" WALK " 

1378 GOTO 1410 

1 388 PR I NT " -s-si-s-si-KiioUBLE* 1 -^""*-^-^- " 

1398 GOTO 1418 

140@ pri^j ii »:»;»;s-:»;»:»:»;»:h!':»:s»;swoijt OF THE BRLT.PFlRK* :w * ; * ;ffi * : ®* :w *• w * ^K * ^ * !,, 

1418 ON R GOTO 1 500? 1480? 1468? 1480? 1488 

1488 ON Z+l GOTO 1438? 1458 

1438 H1=H1+1 

1448 GOTO 1468 

1458 H8=H£+1 

1468 L=Qi:R-1jC3 
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1479 M=lrfr CL.-'lidl 

1488 c=i-mi& 

1499 S=S+M 

1491 IF I<9 THFt-i 1500 

1492 IF Z==0 THEM 1500 

1493 IF S3+S>S1 THETi 1510 

1500 IF 0<3 THEN 1818 
1510 PRINT 

15S0 IF S=l THEM 1550 

1530 N5="RUNS" 

1540 GOTO 1560 

1550 Nf-="RUN" 

1560 PRINT S?li$ 

1570 PRINT 

158© IF Z=8 THEM ] 650 

1.610 PRINT R$jS1 

1630 PRINT B£?83 

1631 IF I>=9 THEN 1738 
1630 PRINT" 



1640 GOTO 1700 
1650 Si=Sl+S 
I860 PRINT 

1670 IF Z=l THEN 1700 

1671 IF I<>9 THEM 1680 
1673 IF 8£>81 THEN 17^0 
1680 Z=l 

1690 GOTO 1 130 

1700 Z=0 

1713 1=1+1 

1733 GOTO 1130 

1730 IF 31=33 THEM 1930 

1740 PRINT 

1750 PR I NT" GAME TOTALS" 

1760 PRINT 

1770 PRINT AS? 

1780 PRINR Sis " RUMS"? 

1790 PRINT HIS " HITS" 

1888 PRINT 

1818 PRINT B£5 

1838 PRINT S3? " RUMS "5 

1830 PRINT H£j " HITS" 

1348 PRINT 

1850 IF S1>S£ THEN 1888 

I860 K$=B£ 

1878 GOTO 1898 

1888 K$=fl£ 

1898 PRINT K£? " HI MS BY 

1988 PRINT 



?HBSiSl-S3) 
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191S 
1 920 
1936 
1 940 
1 950 
1 960 
1 970 
1 980 
1990 

£000 

£010 

£0£0 



GOTU 194W 

PRINT "THE GFIPIE I 

GOTO 1 708 

PR I NT "WANT ANOTHER GAME"? 

INPUT K£ 

IE LENCK$)=3 THEN 1.850 

BflTfl . 644 ? 

DATA .641? 

BflTfl .704? 



IEIJ AND NEEDS flMOTTER INNING" 



4 ? « y7 7 ? » y"jy ? . 644? 
44 ? . 05 ? . O-jy ? . t>73 ! 



ly? . 103? . 053? . 7£? . 167? .046? . 05 
153? . 073? . 038? . 651 ? . 18£? . 106? . &i 



16£? .079? 



709? . 16£? . 071 ? . 04? . 836? . ©y? . 053 



DATA . 0i6?£? 5? 6? 1£?8? 15? 16? 18? £5 5? 6? T£? 8? 15? 16? 18? 3? 7? 13? 13? V. 

DATA 17? £3? £7? 1 1 ? £1 ? £1 ? £1 ? 31 ? 31 ? 31 ? 41 

END 
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COMPARE: 

DESCRIPTION 

This program is used to compare two data groups. The comparison is done 
using the median test. The program prints the Chi-Square stats for the 
input using one degree of freedom as the calculation limits. 



USERS 

Users of Compare will be individuals who are interested in determining 
the gross similarities between groups of data. These individuals would 
include statisticians, engineers, businessmen, etc. 



INSTRUCTIONS 

Before this program is run enter the data for the two groups of data in 
data statements starting in program line 900, using the following sequence: 

900 Data X, Y 

910 Data XI, X2 

920 Data Yl, Y2,.... 

where X is the number of elements in the first group, and Y is the number 
of elements in the second group. XI and conversely Yl, Y2, etc. represent 
the individual data points for each group. After the data has been entered 
type RUN. For a detailed list of instructions list the program. 



LIMITATIONS 

Line 94 contains a Restore statement, line 140 a MAT READ statement and 
360 ABS( ). These are defined in the Appendix at the end of Volume II. 
If your Basic does not contain Mat statements they may be easily generated 
through a double FOR loop, (Refer to Appendix B at the end of this Volume). 
The source code is 2K Bytes long and the program executes in 8K. 
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COMPARE 



18 REM *^ : DESCRIPTIONS COMPARES TWO GROUPS OF DATA USING THE 

£8 REM MEDIAN TEST. 

4fl PEM *5B« INSTRUCTIONS: PUT DATA IN LINE 900 AND FOLLOWING. 

ftfl REM THE FIRST DATUM IS THE NUMBER OF ENTRIES IN THE FIRST 

78 REM GROUP? THEN ENTER THE NUMBER OF ENTRIES IN THE SECOND GROUP? 

SO REM THEN THE FIRST GROUP ITSELF IS ENTERED? AND THEN THE 

90 REM SECOND GROUP. THE PROGRAM PRINTS OUT THE 

91 REM CHI SQUARE STATISTIC OF THE £ BY £ TABLE? ON 1 DEGREE 

92 REM OF FREEDOM. 

93 READ T 

94 RESTORE 

•IF, IF T<>9999 THEN 180 

96 PRINT "LIST LINES 18 TO 9£ FOR INSTRUCTIONS" 

97 STOP 

99 DIM Hi 588 3 

180 READ M? M 

HO LET Ml = M + N 

1£8 LET M£ = INTt Ml^£ 3 

148 MAT READ A (Ml) 

15E LET L = 1 

153 LET U = M 

155 GOSUB 680 

156 LET L = M + 1 

157 LET U = Ml 

158 GOSUB 600 
ISO LET X=8 
161 LET Y=0 
188 LET I = 1 
198 LET J = M + 1 
£88 FOR K = 1 TO M£ 

£ 1 8 I F A C I ) < AC!) THEN £7U 

££8 LET Y = Y + 1 

£30 LET -J = J + 1 

£40 IF J <= Ml THEN 3£8 

£50 LET X = M£ - Y 

£60 GO 1 338 

£70 LET X = X + i 

£80 LET 1=1+1 

£98 IE I <= M THEN 3£8 

380 LET Y = M£ - X 

313 GO TO 330 

3£0 NEXT K 

330 LET Li = M -- X 

340 LET U = N - Y 

350 LET Z = X^U - Y*U 

360 LET T = Ml.*n; flBSCZ) - Mi/£ ) t £ 

378 LET C£ = TV f C X+U ) * ( Y+U ) ^ ( X+ Y ) s i. U+U ) ) 
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380 


PRINT "TWO SAMPLE MEDIAN TEST 


■Z> o c 


PRINT "GROUP 1 "; X« U 


385 


PRINT "GROUP £ "5 r? U 


390 


PRINT "CHI -SQUARE = "I C£ 


40@ 


STOP 


600 


FOR I = i TO U - L 


6 1 


LET X = H(L] 


6£0 


LET 0. = L 


630 


FOR .J = L + 1 TO U - I + 1 


640 


IF X >= FUJI THEN 670 


650 


LET y = FUJI 


660 


LET = J 


670 


NEXT J 


680 


IF J = Q THEN 710 


690 


LET A 03) = At J) 


700 


LET fit J) = y 


710 


NEXT I 


7£0 


RETURN 


900 


DATA 9999 


9 999 


END 
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EXAMPLE: 

PROBLEM 

TO COMPARE TWO GROUPS OF DATA: (1, S, 3, M, 5, b, 7) AND (1, 2, S, b, 7 , ID , lb) 

SAMPLE RUN 



TDD DATA ?,fl 

11D DATA l,S,3^,S,b,7 

TED DATA 1 , 5, S, b, 7 , ID , ID, lb 



TWO SAMPLE MEDIAN TEST- 



GROUP 1 
GROUP 5 

CHI-SOUARE 



4 
3 



3 
5 

•0565136 






ZS&Mj' 







£? 
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CONFID 10: 

DESCRIPTION 

This program calculates confidence limits for data. The calculations are 
based on the normal curve approximations. 



USERS 

This program will be of use to individuals setting up statistical bases 
for surveys or studies. This could include poll or census takers or en- 
gineers, structuring data bases. 



INSTRUCTIONS 

The program is self prompting and will request all necessary inputs. After 
the program has been loaded into memory type RUN. List the program for de- 
tailed instructions. 



LIMITATIONS 

Confid uses the DEF FN and FN statements through out, starting in line 

180. The source code is 2K Bytes long and executes in 4K Bytes in most sys- 
tems. A routine to convert the FN statement for use in a system that does 

not have this statement is shown in Appendix B. 
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■"IMF 



10 



9772499 
? 99653^0 



10 PRINT 

11 PRIHT 
IP PRINT 

10© DRTR 500W000 ? 53 ? 8278 ? 5729597 ? 6 1 69 1 1 4 ? 65542 1 7 ? 7257469 
1 1 © DflTfl 7588363 5 788 1 446 ? 8 1 59399 ? 84 1 3447 ? 8643339 ? 8849383 ? 983 1 995 
1 £8 DfiTfl 9 1 92433 ? 933 1 928 5 9452887 ? 9554345 ? 9648697 5 97 1 £834 
1 30 DflTfl 982 i 356 ? 9868966 ? 9892759 ? 99 1 8825 ? 9987983 ? 9953388 
1 40 TiflTfl 9974449 5 998 1 342 5 998659 1 ? 99993£4 ? 9993 i 89 ? 9995 i 66 ? 999663 1 
1 50 DflTfl 9997674* 9998409? 99989£!'£? 9999277? 9999519? 9999683) 9999793 
1 6@ DflTfl 9999867 ? 99999 15? 9999946 ? 9999966 ? 9999979 ? 9999987 ? 9999998 
178 DIN X(43) 

188 DEF FNQ C U ) =M+' . |: *S 

1 98 DEF FND £ U ) =X ( U ) -X I U- 1 J 

288 DEF FNE (U) =U-U^ CU-1 ) &■ iUds (£&B1 ) + (U-£) ^DS-"' C6*D1 ) } 

£18 DEF FNG«U)=lE-3®INTUE5*U+.5) 

228 PRINT 

238 PRINT "CONFIDENCE LIMITS FOR fl POPULATION PROPORTION BASED ON" 

248 PRINT "THE NORMAL CURUE APPROXIMATION. 

258 PRINT " HHAT ARE X (NUMBER OF SUCC-" 

268 PRINT "ESSES IN SAMPLE) ? N (SAMPLE SIZE)"? 

£78 INPUT NIjWE 

£88 DATA .5? .75? . 98? . 95? . 99? . 999? . 9999? 4E44 

£98 FOR I =87048 

£91 READ X(I) 

£92 NEXT I 

388 LET M=Wi.-'W2 

318 LET S=SQR(MS(1-M).--W2) 

328 PRINT 

338 PRINT " BEST ESTIMATE OF POPULATION PROPORTION (POT) ="?FNG(M) 

340 pRIHT 

350 PRINT 

368 PRINT "CONFIDENCE LIMITS OH POPULATION PROPORTION:" 

878 PRINT 

388 PRINT " CONF LEUEL"?" LONER LIM"?" UPPER LIN" 

398 PRINT 

488 READ P 

418 IF F-4E44 THEN 9999 

4£8 LET fll=0.5*d+P) 

438 GOSUB 468 

448 PRINT 100ffip?FNG(FNQ(-A£)-i^(£^£) 1 , fhq (FNQ CA2) + !• (£*W£) ) 

458 GOTO 488 

468 IF fll>8„5 THEN 518 



478 LE 



4-A1 



488 GOSUB 548 

498 LET A2=-Q 
588 GOTO 530 
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518 GOSUB 549 

55Q FOR 1=0 I'D 45 

568 IF Z<XtI) THEM 588 

578 NEXT I 

588 LET DI=FHDm 

598 LET El=FNln:i + i;i 

680 LET Ii£=El-DJ 

€• 1 8 LET Ti3=FNIi '' I +8 'i ~ E i -Tic 

6E8 LET U= iZ-K i J.-1 ) .'i .-'Hi 

630 LET Q=FNE(FriB!;u:i ) 

648 LET Q=@. 1® CQ+I-3. ) 

658 RETURN 

'-•1999 P'NTi 
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DESCRIP; 

DESCRIPTION 

This program calculates a number of descriptive statistical quantities 
for a single data set. 



USERS 

Statisticians and engineers will find the most use for this program. 



INSTRUCTIONS 

Your data must be entered into the program in the form of data statements, 
before the program is run. Start entering your data in line 100. The pro- 
gram will hold up to 300 data points. After the data is entered, type RUN. 
The program will then ask for the Frequency Distributions: L,U. Where "L" 
is the lower limit of your data and "U" is the upper range of your data. 
Enter these end points and the program will do the rest. 



LIMITATIONS 

Descrip contains a Restore statement in line 730 and FN statements start- 
ing in line 820. The source code stores in 5K and executes in 12K. The exe- 
cution space may be reduced by reducing the table storage in the DIM state- 
ments. 
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HESCPIF 



5 PEIM DE8CRIF' 

10 REM no MOT' resequence: 

768 READ U 

7£0 IE U = 1E38 THEN £580 

738 RES I ORE 

748 PRINT 

758 PR I NT "TYPICAL INTERURL FOR FREQUENCY DISTRIBUTIONS:"? 

768 PRINT" L»U ="5 

778 INPUT HI? WE 

788 PRINT 

798 PRINT 

8 8 8 TJ I M >■, i. 388 3 ? S ( 4 3 5 Y f 4 3 ? Z ( 4 3 

8 1 8 I) I M C C 58 3 ? G ( 50 3 ? E ( 50 3 ? F ( 50 3 

880 DEF FNRCM3=.00i^INT(1088^t1+„53 

8 30 DRTfl 1 ESS 5 8 ? £1 ? 8 ? 8 ? 8 ? © ? 8 

848 LET I = 

858 LET I = 1+1 

868 READ ¥, i 1 3 

878 IF XCI3 <> 1E38 THEN 858 

888 LET Hi = 1-1 

898 LET N = Ml-1 

988 FOR 1=1 TO 4 

9 1 8 LET S (13 = 8 

9 £8 NEXT I 

938 FOR I = 1 TO Ml 

948 LET Y(13 = X ( 1 3 

958 LET YC£3 = X ( 1 3 1£ 

968 LET YE33 = Y C 1 3 ^Y CS3 

978 LET Y(43 = Y(£3t£ 

9S0 FOR J=l TO 4 

998 LET S ( J 3 =S C J 3 +Y ( J 3 

1008 NEXT -J 

1018 NEXT I 

10£8 LET S = SCI 3 

1038 FOR I = 1 TO 4 

1048 LET Y(I3 = (1.-N1 3*3(13 

1858 NEXT I 

I860 LET S(£3 = Y(£3 - Y(13T£ 

1878 LET S(33 = Y(33 - 3*Y(I)*Y(£) + £*Y ( 1 3 t3 

1088 LET SC43 = Y(43 - 4*- Y ( 3 3 ^Y ( 1 3 + 6** : Y (£3 * : Y ( 1 3 1£ - 3®Y ( 1 3 T4 

1090 LET YC£3 = SQR(SC£3 3 

1100 LET Y(33 = S(33 ••-' (S(£3«Y(£3 3 

1110 LET Y(43 = S(43.'S(£3t£ - 3 

11£0 PRINT 

1130 PRINT "S U M N fl R Y S T fl T I S T I C S" 

1 148 PRINT 
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1 1 5@ 
1168 
1179 
1180 
1190 

1£00 

IE IS 

1 ££0 
1 £30 
1 £40 
1 £50 
1£60 
1E70 
1£80 
1 £90 

1 300 

1310 

13£0 
1 330 
1 340 
1350 
1360 
1370 
1380 
1 399 

1 400 

1410 
1 4£0 

1 430 
1 440 
1 450 
1460 
1470 
1 480 
1 490 

1 500 

1510 
15£0 

I -„* -Z"^J 

1540 
1 550 
1 560 
1570 
1580 

1 599 

1 600 

1610 
1 6£0 

1 630 
1640 
1 650 



PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT 
PRINT- 
REN SORT 
FOR I = 1 
FOR J = 1+1 
IF XdXXL 



NUMBER OF URRIflTES 

ARITHMETIC MEAN 

STANDARD DEUIATION 

UflRIfiNCE 

COEFF OF UAR CPCT) 

STANDARD SKEWNESS 

STANDARD EXCESS 



= "?N1 
="jY(l) 
= "jY(£) 

="?sf£:i 

= " 5 FNR f 1 88®Y l £ ) --Y ( 1 ) ) 



" 5 FNR C 
" J FNR C 



i. >: J 

(4) 



T'O N 
TO Mi 

) THEN 



.318 



■i=xm 
;r i)=xui 
:(j)=vi 
j 



LET 'i 
LET > 

let > 

NEXT 
NEXT I 

PRINT"0 R D E P 
PRINT 
PRINT" 
LET Pi=10 
GOSUB £360 
LET T1=P£ 
PRINT" 
LET PI =£5 
GOSUB £360 
LET T£=P£ 
PRINT" 
LET PI =50 
GOSUB £360 
PRINT" 
LET P5=P£ 
LET PI =75 
GOSUB £360 
LET T3=P£ 
PRINT" 
LET PI =90 
GOSUB £368 
LET T4=P£ 
PRINT" 
PRINT" 
PRINT 

LET U=XiNi) 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT- 
PR I NT 



T I 



T I f: ; 
MALLFST UARIATE ="?X(1) 



LONER DECILE ="5T1 



FIRST QUART ILE ="',Ti 



MED I ON ="?Pe 



1IRD QUART ILE ="?TS 



UPPER DECILE 
LARGEST UARIATE 

X(i) 

TOTAL RANGE 

DECILE RANGE 

JEM I -QUART ILE RANGE 

BOULEY'S SKEWNESS 

PEARSON SKEWNESS 



5T4 
SXCNl) 



= "5U 

="JT4-T1 

— 5 I i --■ — ! c. J ■-• c. 

= " ! FNR ( ( T3+T £-£KR5 1 s i. T3-Ji 

= " ? FNR i 3 « ( Y ( 1 ) -P5 ) -'Y i £ ) ) 



1 "i 
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1 668 
1 678 
i 688 
1 698 
1788 
1718 
17 £8 
1739 
1 i-"'4ti 

1768 

1 798 
1 888 
1818 
1 8£8 
1 838 
1848 
1858 
1 868 
1878 
1888 
1 899 
1 988 
1918 
19£8 
1938 
1 948 
1958 
1 968 
1978 
1 988 
1998 
£889 
£818 
£8£8 
£838 
£848 
£858 
£868 
£878 
£089 
£898 
£188 
£119 
£1£8 
£138 
£148 
£ 1 58 
£168 



PRINT 

LET Ii=RE3!'.W£-Wl ) 

IF D=3 THEN £518 

LET Y 1 =W 1 - 1 NT ( i W 1 -X C 1 ) } --Tt+ 1 . 99999 } *Ti 

LET L= I NT ( ( X ( N 1 ) - Y 1 + . 0008 1 i SO ) + 1 

IF L>58 THEN £458 

FOR 1=1 TO L+£ 



LET 



LET E 
NEXT 
PRINT 1 
PRINT 



c~ 



■ ! 

1 =8 



1 + r I - i :i s=D 



p f d 



FPi 



f-i i 



NOT 



U 



IT 



n _ h !i _ H 



PRINT" 

PRINT 

FOR I = 1 TO M 

LET H=INTC i:i + lE.-'8jS(V(i}-c(ijiv-D) + 

LET F(H)=F(H)+1 

LET E(H)=E(H)+X(I) 

NEXT I 

LET J = 1 

LET J=J+i 

LET G(.J3=188SF(.J).-Ttl 

PRINT C(J-l) ?CCJ) ,F(J) jFNRCGOJJ ) 

IF J=L+£ THEN 1938 

LiOTO 1888 

FOR -J = 3 TO L+l 

LET F(J)=F(J-i)+F(J) 

LET GtJ)=1003«FU}/'Nl 

LET EU)=EU-1)+EU) 

NEXT J 

PRINT 

PRINT 

PRINT" C U M U L fl T I U E 

PRINT 

PRINT" 

PRINT" UfiLUE 

PRINT 

LET J = 1 

LET J=J+i 

LET E(JJ=108^E(J).--S 

PR I NT C ( -J J 5 F ( .J 3 ? FNR i G t J ) J ? FNR t E r .J J ;i 

IF J=L+1 THEN £118 

GOTO £868 

PRINT 

PRINT 

PRINT"0 R Ii E R F D fl R R fl Y" 

PRINT 

LET M=INTCNl--4-.85)+l 

LET H=4«(N-1) 



PERCENT' 
FREQUENCY " ? " 



I ! 



FREQUENi 



T P 



R ! ! T T 



NUMBER LESS 
THAN UflLUE 



"HRM UflLUE 



UORIFiTE 
LESS THAN 



sun "■:•' 

UFlLUE' 
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£178 LET L=Mi"H 

£130 FOR I = J TO M-1. 

£190 LET K1 = I+I1 

££80 IF L=I THEM ££36 

££10 LET K£=I+£*M 

£££0 GOTO ££40 

££30 LET K£=I+£*M-1 

££40 IF CL-ll^CL-£)=0 THEN ££78 

££50 LET K3=I+3*M 

££60 GOTO ££80 

££70 LET K3=I+3**1~£/"L 

££80 PRINT XCI3 jXCKIJ jXiKE) ?XCK3) 

££90 NEXT I 

£300 FOR I = £ TO L.-+-1 

£318 PRINT X((I-i)*M), 

£3£0 NEXT I 

£338 PRINT 

£348 STOP 

£350 REM "SUBROUTINE" 

£368 LET G5 = P 1 * ; C til + 1 ) .--" 1 88 

£370 LET P£ = X C 1 J 

£388 IF G5<1 THEN £448 

£398 LET P£=XCN1) 

£488 IF G5>N1 THEN £448 

£418 LET Q5 = INKG5) 

£4£8 LET H5=G5-Q5 

£ 439 LET P£=H5**X f Q5+ 1 ) + ( 1 -H5 ) "* : X ( Q5 ) 

£440 RETURN 

£458 PRINT 

£468 PRINT" IMTERUfiL IS TOO SMALL. MAXIMUM IS 58 CLASSES" 

£ 478 PR I NT " RESPEC I FY L < U " 5 

£488 INPUT Wi»W£ 

£498 GOTO 1648 

£588 PRINT 

£58£ PRINT 

£518 END 
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SAMPLE RUN 

10D DATA Ebl.M, 27Q.fl, 2bS.il, Ebl-M, ESfl-l, ESE-1, Ebfl-3, E5D-3, E7E-3 

101 DATA EtE.fl, ESS-S, E^H-b, EfiD-T, B7D-3, Eb3-E, ESfl.3, E5b-3, £5=1.3 

IDE DATA E7D-1, EST. 3, E53.E, 5bfc,.M 
RUN 

TYPICAL INTERVAL FOR FREQUENCY DISTRIBUTIONS: L,U = ?EbD,EflD 



SUMMARY STATISTICS 


NUMBER OF VARIATES 


SB 


22 


ARITHMETIC MEAN 


= 


ELE-C^l 


STANDARD DEVIATION 


= 


7.7fiMDll 


VARIANCE 


= 


bQ-STDflE 


COEFF. OF VAR (PCT) 


= 


E.T7 


STANDARD SKEUNESS 


= 


D.3A3 


STANDARD EXCESS 




-D.17L 


ORDER STATISTICS 


SMALLEST VARIATE 


= 


EMT-b 


LOWER DECILE 


= 


ESD.flM 


FIRST (3UARTILE 


= 


ESL-1 


MEDIAN 


= 


EL1.4 


THIRD (2UARTILE 


= 


Ebfl.75 


UPPER DECILE 


= 


271. fiS 


LARGEST VARIATE 


= 


EfiCI 


TOTAL RANGE 


— 


31-3 


DECILE RANGE 


= 


21. Dl 


SEMI-tfUARTILE RANGE 


= 


b.3£4T=H 


BOULEY'S SKEUNESS 


= 


ClbE 


PEARSON'S SKEUNESS 


= 


D-ESM 



841 



DIFFER: 

DESCRIPTION 

Differ calculates confidence limits on two data groups. The limits are 
determined from the difference between the means of the two groups. 



USERS 

Users of Differ will be mainly restricted to people analyzing or studying 
data sets or samples. 



INSTRUCTIONS 

Your data must be entered in data statements before the program is run. 
Enter your data in the following format: 

200 DATA HI, Nl, Ml, SI, H2, N2, M2, S2 
where 

HI - is the size of the population, (if the population is infinite let 

HI = 0) 
Nl - is the number of points in the first data set 
Ml - is the mean of the points in the first data set 

51 - is the standard deviation of the first data set 

H2 - is the size of the population for the second set of data 

N2 - is the number of points in the second data set 

M2 - is the mean of this data 

52 - is the standard deviation for the data in the second set 

After the data is entered type RUN. The program may be listed for detailed 
instructions. 



LIMITATIONS 

Starting in line 19 the DEF FN statement is used. The FN statement is 

used throughout this program. Differ requires 4K Bytes for storage and ex- 
ecutes in 6K Bytes of memory. 
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11 


HFlTfl 


i. 3„ 


DATA 


13 


DRTR 


14 


DATA 


15 


DATA 


1 6 


URTm 


17 


DATA 



y 1 4bfj 5 

8493@3 s 
7" 12834 s 



6554E17?6 

8643339? 8 

9 6 40 697? 9 

9937903 < 9953388 ? 

9993 1 29 ? 9995 1 £•€> ? 
? 9999519? 99996=83? 
i 9999' : 5'79 ~ 



18 DIM 



5000008? 53S>8£78? 5792597? 81791 14 

7580363 ? 788 1 446 ? 8 1 59399 ? 84 1 3447 

9192433? 9331988? 9458007? 955434-5 

9821356? 9868966? 9898759? 9918885 

9974449? 9981 342:? 9986581 ? 9998384 

9997674? '8998489? 99989EE? 99998:77 

99998-67? 9999915? 9999946? 99998^66 
: ; C493 

19 DEF FNQ(U3=M3+U-T'3 
88 DEF END l U } =7! ( U 3 -X i > )- 1 3 

£ 1 DEF FME ( U 3 =U~U*= f K)—l 3 ■* ( Dc'--'' ( 2*D 1 3 + i U~8 ' #Ti3-- - ' ( 6*-D 1 3 1 
22 DEF FNZ f U 3 = 1 + f ( y t£ 3 + 1 3 s C 4 S B 3 + i i. f Ut£ 3 +3 3 ffi i 5* : ( Ut£ 3+133 
£5 FOR 1=1 TO 49 
38 READ Kill 
35 NEXT 1 
302 DATA 1E37__ 

£03 DATA . 5? . 75? . 9? . 95? . 99? . 999? . 9999? . 99999? 1E37 
£04 READ H1?N1?M1 ? 81 ?H£? N2?M£?S£ 
£85 IF H1=1E37 THEN 35£ 
£06 READ I 

£07 IF H1O0 THEN £18 
£88 LET H1=1E£0 
£10 IF H2O0 THEN £14 
£1£ LET H£=1E£8 
£14 LET M3=M1-M£ 
£ 1 6 LET T 1 =8 1 *SQR ( ( M 1 * C H 1 
£ 1 8 LET T£=S£$SQR ( ( N£* ( H£ 
££8 LET R1=T1*SQR< (Hl-Nl 3 .•-' CNl^fHl-1 ) 3 3 
£££ LET R£=T£*SQR (. ( H2-N23 ■-- CN£* CHS-1 1 3 3 
2£4 LET R5=R1T£ 
£26 LET R6=R£t2 
228 LET R3=SQRCR5+R6 3 
238 LET N=R5.^CR5+R63 
£:32 LET D= C C N 1 - 1 3 * ( N2- 1 3 3 .•■" < (. r 
234- LET D= . 1 '#■ I NT i 1 @*Ti+ ■ 5 3 
£36 PRINT 

£38 PRINT " STATISTIC: "? "SAMPLE 
£48 PRINT 

£4£ PRINT "SAMPLE; MEfiN " ?Nl?n£ 
£44 PRINT "SAMPLE UFlRIRMCE "?8it£?S2 
£46 PRINT "SAMPLE STD DEUIATION" , SI ? S£ 
£48 PRINT "SAMPLE SIZE "?N1?N£ 

£58 PRINT "POPULATION SIZE " ? 
£5£ IF HI< 
£54 PRINT 
PF,f. QfiTfl ; : 



i ■ h"5 .-469 

90:3 1 995 
9772499 
9965330 
9996631 
9999793 



/i96«UT23 



133 
13 1 



(HlsiNl-ll 3 3 
(H2 S (N2-1 3 3 3 



i i s={,jt£+ ( m i - 1 ;i •*= 1 1 -y i f2 3 



? "SAMPLE 2" 



■f-C" 



"INFINITE' 
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£'58 PRINT HI? 

£'6@ IF H£O-lE£0 THEN £66 

£6£ PRINT "INFINITE" 

£64 GOTO £68 

£66 PRINT H£ 

£68 PRINT "ESTIM POPN STB BEU " 5 T1 ? T£ 

£70 PRINT "STD ERROR OF MEAN "jR1jR£ 

p"70 C'C'TNT 

£74 PRINT "DIFF BETWEEN MEANS " » " " j MS 

£76 PRINT "STD ERROR OF DIFF " ? " " 5 R3 

£78 PRINT "DEGR OF FREEDOM (DIFFI'S " "ill 

£80 PRINT 

£8£ PRINT 

£84 PRINT "CONFIDENCE LIMITS ON DIFFERENCE BETWEEN MEfiNS: 

£86 PRINT 

£88 PRINT "CONF LEUEL" ? "LOWER LIM" » "UPPER LIM" 

£90 PRINT 

£9£ REfiD P 

£94 IF P=1E37 THEN 386 

£96 LET Hi=8.5^fi+p;i 

£98 GOSUB 318 

388 IF D=0 THEN 386 

30£ REM FNZ CONUERTS STUDENT'S T TO Fl NORMAL DEUIflTE: 

304 LET fi£=A£«FNZCfl£) 

306 PRINT lee^PjFNQC-fiS) ?FNQ(fl£) 

308 GOTO £9£ 

318 IF fll>8.5 THEN 3£0 

31£ LET fli=i-Rl 

314 GOSUB 3£8 

316 LET fl£=-Q 

318 GOTO 3£4 

3£8 GOSUB 3£8 

3££ LET fi£=Q 

3£4 RETURN 

3£6 REM REUERSE INTERPOLfiTION FOR STD NORMAL DEUIATEs 

3 £8 LET Z=IE7*T-il 

338 FOR 1=1 TO 46 

333 IF Z<KiI) THEN 336 

334 NEKT I 

336 LET Di=FNDm 

338 LET Ei=FND(I+l) 

348 LET D£=E1-D1 

34£ LET D3=FND(I+£)-El-D£ 

344 LET U=CZ-X(I-1))/-D1 

346 let q=fnbi:fnbi:u) :i 

348 LET Q=8 „ 1 ** ( Q+ I -£ ) 

350 RETURN 

35£ PRINT 

354 PRINT "THIS PROGRAM COMPUTES CONFIDENCE LIMITS FOP" 

356 PRINT "THE DIFFERENCE BETWEEN TWO POPULATION MEANS'" 

358 PRINT "BASED ON DATA SUPPLIED FOR TWO SAMPLES* fiNF" 
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368 PRINT "FROM EACH POPULATION. TH i!-=;F< TYPF: " 

36£ PRINT 

364 PRINT " £00 HATH Hi j Ml ? Ml j Si 5 H£j N£? MS? S£ 

366 PRINT " RUN" 

368 PRINT 

370 PRINT "WHERE Hi 

37£ PRINT " 

:;74 ppjr.jT » K.j-i 

376 PRINT " Ml 

378 PRINT " Si 

38© PRINT " 

38£ PRINT 

384 PRINT "AND H£?M£»M£»S£ ARE THE SAME EOR SAMPLE 

386 END 



SIZE OF POPULATION 1 (LET Hi" 
EQUAL ZERO I F POPN IS I NFT N I TE ) " 

SIZE OF SAMPI E 1" 

ARITHMETIC MEAN OF SAMPLE 1" 
STANDARD DEVIATION OF SAMPLE 1 " 
(BASED ON DIUISOP OF NJ 3 " 




mmm 



^ 
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ENGINE: 



DESCRIPTION 



This program computes various parameters for the Otto cycle engine. The 
values are generated using a CFR engine. Inputs for the program are from 
the user during operation. 



USERS 

This program can be used by auto enthusiasts but will probably be a 
too technical for all but those with an engineering background. 



bit 



INSTRUCTIONS 

After the program has been loaded into memory type RUN. The program will 
prompt for all required inputs. The program should be listed for addi- 
tional instructions. 



LIMITATION S 

Engine should store and execute in most Basic speaking systems with 6K 
of available memory. 
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till:!,!.! 



15 PRINT "DO YOU WflMT INSTRUCTIONS? ENTER 1 EOR YES AND 8 F'OR NO' 

16 INPUT Qi 

17 IE Ql = 1 THEN 188 

18 IE Ql = 8 THEN i££ 

19 PRINT " PLEASE RESPOND WITH 1 OR 8 M 
£8 GO TO 16 

188 PRINT' 1 THIS IS fl PROGRAM WHICH WILL CALCULATE THE" 

181 PRINT" ECU LONING ITEMS EOR THE OTTO CYCLE USING THE" 

18£ PRINT" CF'P ENGINE" 

183 PRINT" 1. RIR FLOW INTO ENGINE" 

184 PRINT" £„ FUEL FLOW INTO ENGINE" 

185 PRINT" 3. RIR FUEL RATIO" 

106 PRINT" 4. BRAKE HORSEPOWER" 

107 PRINT" 5= FRICTION HORSEPOWER" 

108 PRINT" 6. INDICATED HORSEPOWER" 

109 PRINT" 7= BRAKE THERM Al EFFICIENCY" 

118 PRINT" 3, INDICATED THERMAL EFFICIENCY" 



FUEL CONSUMPTION" 
I FTC FUEL CONSUMPTION" 



111 PRINT" 9. BRAKE SPECIFIC 

US PRINT" 18. INDICATED SPEC 

113 PRINT" 11. IDEAL. THERMAL EFFICIENCY" 

114 PRINT" IE. RELATIUE EFFICIENCY" 

115 PRINT" 13. UOLUMETRIC EFFICIENCY" 

116 PRINT" THE ABOUE UALUES ARE CALCULATED FROM DATA WHICH IS 1 

117 PRINT" REQUESTED BY THE COMPUTER AS IT IS REQUIRED" 

118 REM 

1 1 9 REM 

1£8 REM wffiffiffiwpiiR UOLUME RATE CORRECTED FOR TEMP. AND PRES. **&*** 

1£1 REM 

1££ PRINT "PRESSURE DROP ACROSS LAMINAR METER (IN. OF WATER) ="5 

1£3 INPUT PI 

1£4 IF P1>1 THEN 734 

1£6 IF PK8 THEN 734 

1£8 PRINT "BAROMETRIC PRESSURE CINCHES OF HG) ="? 

138 INPUT PO 

13£ IE P0>31 THEN 738 

134 IE P8<£8 THEN 738 

146 PRINT "ROOM TEMPERATURE (FAHRENHEIT) ="S 

150 INPUT El 

15£ IF F1M09 THEN 74£ 

154 IF Fl< 68 THEN 74£ 

1 68 LET Q8=P 1 * 1 £ . 5*K . 9358+ ( P8-~£8 ) * . 9334 ) »£ ( I — C F 1 -70 ) « . 883£ l 

178 PRINT 

188 PRINT "AIR FLOW INTO ENGINE =" Q85 "CUBIC FEET PER MINUTE" 

198 PRINT 

191 REM 

19£ REM 

193 REM BffiwsisisPECIFIC WEIGHT OF RIRMKBHBk 
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cw IF T£<.£ THEN 746 



194 REM 

£89 LET S0=P0« . 49 1 * 1 44--' ( 53 . 35* ( F 1 +469 ) ) 

£@1 REM 

£6£ REM 

£03 REM ftKK^filR WEIGHT RATE INTO ENGINE***** 

1584 REM 

£10 LET M8=Q8*S8 

££8 PRINT "AIR FLOW INTO ENGINE =" MS 5 "POUNDS PER MINUTE" 

338 PRINT 

£31 REM 

C<-~\£< REM 

£33 REM ssffiffiffis-FUEt. WEIGHT RRTE INTO ENGINE***** 

£34 REM 

£48 PRINT "TIME REQUIRE!* FOR £1.5 CO OF FUEL (MINUTES) ="5 

£58 INPUT T£ 

'dO'd. IF li 

54 

£68 PRINT "SPECIFIC GRfiUITY OF FUEL ="j 
£78 INPUT SI 
37£ IF S1>1 THEM 758 
£74 IF SK.5 THEN 758 
£75 PRINT 

£88 LET Mi=£1.5*6£„4*Sl^CT£*(£.54JT3*17£8) 

£98 PRINT "FUEL FLOW INTO ENGINE =" Ml j "POUNDS PER MINUTE" 
388 PRINT 
301 REM 
30£ REM 

383 REM *;ks:k'#;fiTjR FUEL RATIO***** 
334 REM 

318 LET R6=M0.-T11 

3£8 PRINT "AIR FUEL ROT 10 =" R6 

338 PRINT 

331 REM 

33£ REM 

333 REM «****BRAKE HORSEPOWER***** 

334 REM 

348 PRINT "BROKE WATTMETER READING IN KILOWATTS ="? 

358 INPUT P£ 

35£ IF P£>£ THEN 754 

354 IF P£<.£ THEN 754 

368 LET P£=P£ --•,, 746 

365 PRINT 

378 PRINT "BRAKE HORSEPOWER ="P£ 

388 PRINT 

381 REM 

38£ REM 

3S3 REM *****FRICTION HORSEPOWER***** 

384 REM 

398 PRINT "FRICTION WATTMETER READING IN KILOWATTS ="? 

488 INPUT P3 

48£ IF P3>3 THEN 753 
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404 IF P3<1 "IHEM 758 

419 LET P3=P3y.?Af. 

415 PRINT 

4£0 PRINT "FRICTION HORSEPOWER =" P3 

43W PRINT 

-131 REM 

43£ REM 

433 REM ***** INDICATED HORSEPOWER***** 

434 REM 

440 LET P4=PE+P3 

450 PRINT "IND I CRT ED HORSEPOWER =" P4 

460 PRINT 
fm 

M 

463 REM *****BRAKE THERMAL EFFICIENCY***** 

464 REM 

470 PRINT "HIGHER HEATING UALUE OF FUEL ="5 

480 INPUT HO 

48£ IF H0>£1000 THEN 76£ 

484 IF HO< 19000 THEN 76£ 

490 LET E£=P£*4£.4£.--i:Nl*H01 

495 PRINT 

500 PRINT "BRAKE THERMAL. EFFICIENCY =" E£ 

510 PRINT 

511 REM 
51£ REM 

513 REM ***** INDICATED THERMAL EFFICIENCY***** 

514 REM 

5£0 LET E4=P4*4£.4£.-"(M1*H0} 

530 PRINT "INHICATEIi THERMAL EFFICIENCY =" EA 

540 PRINT 

541 REM 

542 REM 

543 REM *****BRAKE SPECIFIC FUEL CONSUMPTION***** 

544 REM 

550 LET S£=M1*60--P£ 

569 PRINT "BRAKE SPECIFIC FUEL CONSUMPTION =" S£j "LBS^HP~HR" 

570 PRINT 

571 REM 
57£ REM 

573 REM ***** INDICATED SPECIFIC FUEL CONSUMPTION***** 

574 REM 

580 LET S4=M1*60.--P4 

590 PRINT "INDICATED SPECIFIC FUEL CONSUMPTION =" S4S " LES--HR-HR 

600 PRINT 

601 REM 

60S REM *****IDEAL THERMAL EFFICIENCY***** 

604 REM 

610 PRINT "COMPRESSION RATIO = "; 

6£0 INPUT Rl 

6££ IF Rl>10 THEN 766 
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635 PRINT 

649 PRINT "IDEAL THERMAL EFFICIENCY =" E5 

65@ PRINT 

651 REM 

65? REM 

653 REM sasKS-wpELHTIUE EFFICIENCY***** 

654 REM 

6Fi5 LET E7=E4-""E5 

656 PRINT "RELATIUE EFFICIENCY =" E7 

657 PRINT 

658 REM 

666 REM 3***ffiffiU0LUMETRIC EFFICIENCY®**** 

6A1 REM 

66S PRINT "CYLINDER BORE (ASSUMED) = 3. £5 INCHES' 

680 PRINT "PISTON STROKE (ASSUMED) = 4.5 INCHES" 

780 PRINT "ENGINE SPEED (988<=RPM<=ieee) ="5 

710 INPUT NO 

718 IF N8M888 THEN 778 

714 IF N0< 900 THEN 778 

715 PRINT 

780 LET E6=Q0'*17£8.--(3„ 14159* (3. £5) T£v4*4. 5®N0) 

738 PRINT "UOLUMETRIC EFFICIENCY =" E6 

73£ GO TO 9£0 

734 GOSUB 980 

736 GO TO 188 

738 GOSUB 988 

748 GO TO 188 

748 GOSUB 988 

744 GO TO 148 

746 GOSUB 988 

748 GO TO 848 

750 GOSUB 988 

75£ GO TO £68 

754 GOSUB 980 

756 GO TO 348 

758 GOSUB 988 

768 GO TO 348 

768 GOSUB 988 

764 GO TO 478 

766 GOSUB 90S 

768 GO TO 610 

778 GOSUB 988 

788 GO TO 788 

988 PRINT "DATA OUTSIDE LIMITS" 

918 RETURN 

988 STOP 

99998 REM 

99999 END 
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FOURIER: 

DESCRIPTION 

This program evaluates functions which are time dependent and are sums of 
exponentials and sine cosine terms. 



USERS 

Engineers and other technically oriented professionals could find use for 
this type of program. 



INSTRUCTIONS 

The data must be entered into data statements before Fourier is run. Data 
should be entered in the following form: 

20 DATA NP,Nl,N2,T0,Delta-T, Sigma 
where 

NP - is the total number of points to be calculated 
Nl - is the number of exponential terms 
N2 - is the number of sine cosine exponential terms 
T0 - is the time of the first point 
Delta-T - is the time between points 

Sigma - is the standard deviation of the noise (this is usually set 
to 0) 

Then enter the coefficients of the equation that satisfies the time func- 
tion C*EXP(-S*T) 

Then enter the coefficients of the following equation that satisfy the 
time function. (A*COS(W*T)+B*SIN(W*T))*EXP(-G*T) 

with A1,A2,A3, on line 56 B1.B2.B3, on line 60 

and C1,C2,C3 on line 50 W1.W2.W3, on line 63 

and S1.S2.S3, on line 53 G1,G2,G3, on line 66 

After the data is entered type RUN. List the program for detailed instruc- 
tions. 



LIMITATIONS 

The EXP( ) statement is used extensively throughout the program, starting 
in line 170. The source code requires 3K Bytes of memory for storage and 
execution requires 9K Bytes of available memory. 
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FOUR I tP 



5 REM 

7 DIM 1) (5003 ? X CEO) 

IS REM FUi-lLUATES EXPONENTIAL FUNCTIONS 

£S GO TO 596 

39 READ NjNIjMEjTIjTSjCI 

35 if N=4E44THEN6@0 

48 LET M=£*Ni+4*N£ 

8@ FOR -J=i TO M 

90 REAP XU) 

108 NEXT J 

1£0 FOR 1=1 TO M 

ISO LET 1013=0 

140 LET T=TT+CI-13*T£ 

ISO FOR J=l TO 011+NE3 

ISO IF ,J>N1 THEN 19© 

170 LET Di:i)=Ha)+Xi:.J)«EXPC-XfNl+J)*T:i 

180 GO TO £30 

190 LET L=Ni+.J 

£00 LET Y= [COS CX i:£ s N£+L3 *=T) ) * : EXP (-X tS^NP+L ) »=T) 

£10 LET Z=(SIN(XC£*N£+LJ*T))*E>F(-X(3*NS+L)»m 

££0 LET D (I ) =B (I ) +X ( L) *Y+X CNe+U *Z 

£30 NEXT J 

£40 LET D(I)=D(I)+C1*(RMD(X)-0.5)WSQR(1£) 

£50 NEXT I 

£60 PRINT 

£70 PRINT 

£80 PRINT 

£90 PRINT "NOISE SIGMfi ="5Ci 

300 IF Ni=0 THEN 390 

310 PRINT 

3£0 PRINT "TERMS OF FORM C*EXP(-S*T) RREs " 

330 PRINT 

340 PRINT" ">" C"j" S" 

350 PRINT 

360 FOR J=l TO Nl 

370 PRINT" "jX(J) jXCNI+.J) 

380 NEXT .J 

390 IF N£=0 THEN 510 

39Fi PRINT 

400 PRINT'TERMS OF FORM m*COS<N*T)+B*SIN(W»Tn*EXP(-G*T) ARE:" 

450 PRINT 

460 PRINT" "S" H"j" B"j" W"j" G" 

470 PRINT 

480 FOR .J=C£"«N1 + 1J TO (£*N1+N£) 

490 PRINT " " ? X i J ) 5 X (M£+J) , X C £*N2+J) 5 X L 3*N£+ J) 

580 NEXT .J 
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516 PRINT 

5£0 PRINT'TIRST POINT AT Tl » SPfiC I NG=T£ " 
530 PRINT 
54W PRINT 
350 PRINT 
PRINT 

= 1 TO N 
DCI3 ? 



550 
560 
570 FOR 



"TI="?T1j i! T"£=' ! ?" 
"DATA POINTS ARFT" 



530 PRINT 
590 NEXT I 

595 GOTO 9999 

596 PRINT" INSTRUCTIONS " 

6O0 PRINT"THIS PROGRfiN EUPLURTES TINE FUNCTIONS" 

610 PPINT'UHICH ARE SUNS OF" EXPONENT I RLS AND" 

6£0 PR I NT "EXPONENT I FlL SINE-COSINE TERNS." 

630 PRINT 

640 PRINT" INPUT DflTfl MUST BE ENTERED RS FOLLOWS:" 

650 PRINT"£0 DflTfl MP? Nl ? M£?T0? DELTR-T? SIGNFl" 



WHERE" 

NP=TuTAL NUMBER OF POINTS TO BE COMPUTED" 
N1=NUHBER OF EXPONENTIAL TERNS" 
N£=NUMBER OF SINE-COSINE EXPONENTIAL TERMS" 
T6=TIME OF FIRST POINT" 
DELTf!-T=TIME BETWEEN POINTS" 
SIGMA=STAHDARB DEUIRTION OF THE NOISE" 
(IF ADDITIUE NOISE IS NOT DESIRED? SIGMA=0 ) " 



OF THE FUNi: 



1 J ? C ( 
1 3 ? A ( 
1 3 ? W ( 



£j ?ri: 
p "i * l.j r 



TION ARE 
"5 3 ? . . , ? 
■5 3 ? . . . ? B 



ENTERED AS FOLLOWS 



660 PRINT" 

670 PRINT" 

680 PRINT" 

690 PRINT" 

TOO PRINT" 

710 PRINT" 

7£0 PRINT" 

730 PRINT" 

740 PRINT 

750 PR I NT "PARAMETERS 

76© PRINT" 41 DATA ( 

770 PRINT" 60 DATA fit 

780 PRINT" 79 DATA W ( 

790 PRINT "STATMENT NUMBERS 

800 PR I NT "MAY BE USED" 

810 PRINT 

8£0 PR I NT" MAXIMUM NUMBER OF POINTS PERMISSABLE IS" 

830 PRINT "500 AND (£N1+4N£=£03 . " 

840 PRINT 

850 PR I NT "THE COMPUTATION OF Et-X? WHERE X IS LARGE MAY RESULT" 

860 PRINT"IN EXCESSIUE RUNNING TIME." 

9998 REM 

9999 END 



(13 ? S ( £ 3 ? S I 
t 13 ?B(£3 ?B( 



:-;'i 



? G C 1 3 ? G ( £ 3 ? G ( 



BETWEEN 41 AND 79 INCLUSIUE' 
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SAMPLE RUN 



ED DATA 3D, 3, 1,0, .001,0 

SD DATA -1.7fllfl1E-a,l.btlME-E^.SDbbbE-3,l.SbtE,lti.aSt,S,13t.flfl1 

bo data i5.43a,-.37EEi,4 c ii.B34,E00.4?4 



NOISE SIGMA = D 



TERMS OF FORM C*EXP(-S*T) 

c 

-D.017fiiaT 

D.Dibbin 

Q.DDMSDb? 



ARE: 



LSbbS 

lb • cSbS 

13b. aa^ 



TERMS OF FORM (A*COS (lil*T) +B*SIN (U*T) ) *EXP (-G*T) ARE: 

A BUG 

IS. 43B -0-37EE1 4 c !l.a34 E00.474 

FIRST POINT AT Tl, SPACING = TE 
Tl = Q TE = D.DD1 



DATA POINTS ARE: 



1S-4413 
-4.4a3E33 
D.47ED3ai 
O-BE^AbH"! 

-o.Esa^sa 

0*0^37=154 



10-^474 
-4.S744S4 

1.1EE134 

-D.DEa?lb 

-D.14Eb4Sb 

D.07553Da 



S.SE1SEE 
-3.5^741E 

1.3DE1SS 

-D.Eb33Ba 

-D.Q33bEET 

D.D4471 C 1S 



D.bD3D3b7 

-s.isbas? 

l.lEb33S 
D.3bl71bS 
D.a4S74E3 
O.DlE4b3T 



-E-aE7bD4 
-O-bSTPObb 

D.7SEDT41 
-D.34bST41 

D.Da?iaTS 

-Q.01347E 
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HORSE 

DESCRIPTION 

A champion if there ever was one, you can tell by the lines. This detailed 
picture of a horse's head and neck should be held at arms length when view- 
ing. The source code is 4K Bytes long and the program executes in 5K Bytes 
of memory. 



HORSE 



@£PR 
83PR 
84PR 
65PR 
W6PR 
M7PR 
08PR 
09PR 
18PR 
11 PR 
1 £PR 
1 3PR 
1 4PR 
15PR 
1 6PR 
17PR 
1 8PR 
19PR 
£8PR 
S1PR 
££PR 
c'JPR 
£4PR 
£5PR 
£6PR 

--. *-? r-ir-i 
C. i* f~ !\ 

£SPR 



PR I Ml 

IMT 

IMT 

IMT 

IMT 

IMT 

INT 

INT 

INT 

INT 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 



MMMM MMMMM 

MMMMK MMMNMMM 

tiMMMMX MMMMMMMM'' 

MMMMMXX MMMMMMMM " 
MMMMMXX MMMMMMMM" 
MMMMMMXX MMMMMMMM" 
MM1MMMXXX MMMMMMMM " 
MMMMMMXXX MMMMMMM " 
MMMMMMXXX MMMMMriMMMMMMMM 
MMMMMXXXXMMMMMMMMMMMMMXX 
MMMMMMMMMMMMNMMMMMMMMXX 
MMMMMM MMMMMXXMXXMMMXX 
I1MX OMMMMMXMXXMMXMMX " 
MM MMMMMMXXMXMMMXMMMO 
MMMM MMMMMMXXMXKMMKXMMMM 
MMMMM MMMMMMXXMMXKMXXXMMMM 
I'iMMMMMMKMMriMXXMMMXXMXXXMMMMM" 
MM MMM M MMMMMXMMMHXMXm^MMMM" 
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£9PR 
38PR 

31 PR 
3£PR 
33PR 
34PR 

•J .J(- k 

36PR 
37PR 
38PR 
39PR 

4 ©PR 
41 PR 
4£F'R 
43PR 
44PR 
45PR 
46PR 
47PR 
48PR 
49PR 

5 ©PR 
51 PR 
5£PR 
53PR 
54PR 
55PR 
5SPR 



57PR 
5SPR 
59PR 

6 ©PR 
61 PR 
faSPR 
63PR 
64PR 
65PR 
68PR 
67PR 
6SPR 
69PR 

7 ©PR 
71 PR 
7£PR 
73PR 
7 4 PR 



INT" 

INT" 

IMT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT" 

INT 

INT 

INT 

INT 

INT 

INT 



mm rinri m nmmmmmmmmxmmxxxxxmmmm " 

NMM MM MMMMMXXXXXMMXXXXXXMMMM " 

11NMM M MMMMMXXXX;4*^.IWXXXXXXWWWWW 

MXXMMX M XMMMXXXX>»^IWWWWXXXXXWWWWWW 

XMMXXMO XMMMMMXXXXXXMWWWWNMXXXXXWWWWWO " 

MriXMMM MMMMWMMMMWWWXWWWWWWWXXXXXXWWWWW " 

Xt'lNXMNO XMMMMWWMMWWOWWWWWWWWWMXXXXXWWMWWWO " 

MMXMMM MMMMMWWWWWWWWWWWMMrillMIIXXKXXWWWNNWW 

MMMMM MMMMMMMWWWMMMMMMMMMMMMMXXXXX WWWWWWX" 

I1MMM MMMMMMMWWWMMMMMriMMMriMMMXXXXX WWWWWWX " 

MMM MMflMMXXXXMMMMMMMMMMMMMMMXXXX MMMMMMMM " 

MM MMHMMXXXXXWWWWWXMMMMMMMMXXXX WWWWWWWWW 

MM XMMMXXXXXXXWWWWXMMMMMMMMMXXXXX WWWWWWWW 

MM MMMXXWXWXXXWWWWMMMNMMMMMMMXXXKM WWWWWWWWW " 

M MMXXWWWXXXWWWWWXMMMMMMMMMWXXXXM WWWWWWWWW " 

N MMXXWWMWXXWWWWWXMMMMMMMMMMMXXXMMWWW WWWWWWW " 

M XXXWWWWXXXWWWWXXXMMMMMMMHMWWXXXMWWW WWWWWWWW " 

M XXWWWWXXXMMWWWMXXMMMMMMMWWWWMMI1MXXWWXWMXWWWWWW 

M XXXW^NK^MWWWMXXmMMMMMMWWNmMMMMXXWWJMXWWNWWWW' 

M XXWXWXXXXXWWWWMMXXMMMMMMMWWWWWMMMMM WWWW WWWWWWW 

M XWWXXWXXXXXWWWWXXXMMMMMMMMWWWWMHMHMNMXWWWXWWWWWWW' 

M XWMXMMMXXXNWWWXMWMMMMMMMMMWWWWWHMMMMMM WWWWWWWWWWW' 

MM XWXXHXMXXXXWWWXXWWWMMmMWNWWWmMMMmMM^lWWWWWWWWNWWM , 
M XXXXXMXXXXMWWXXWWWWWMMMMMWWWWWWWMIIHflXMMMWWWWWWWWWW" 

M XXXXXXMXXXKWMXXWWt'MaWWMMMWWWWWWWWMHhlMMMHMMXW WW WWW" 
MM XXXXXMMXXXXWXXWWWWWWWWWMMWWWWWMWWMMMMMMMMM W WW WWW" 
MM XXXXXXMXXXXXXXWWWWWWWWWWWWWWWWWWWWXXHMMMHMMM W W WWW ' 
MMW MXXXXXWIMWdWtMMdWWWWM^ 

MW WWWWK>a^W>a-JWWWWWWWWWWWWWWWWWWWMMriWWMMMNMMMNXM M WWWW ' 
MMXXNWWWXWWWXXXXXXWWMWWWWWWWWWWWWMMMWWWXXXMMHMMMM WMW" 

MM WWWWWWWWWX!«X:>aaWWWWWWMWWWWWWWWWWWWWXXXf1MMMMMM XOXH" 
MM WWWW WWW WWXXXWWWWWWWMMXXW WWW WWWWWWWWMXXMMMMMMMXX HHXX " 



MM WWWWWWWXWWXXMWWWWWMMM 

MM WWW WWWWXWMKWWWWWMMM 

MM WWW WWWWWWMMWMMWMMH 
WWWWWWWW WWWWWWWWWWMWMM 
XWWWWWWMKWWWWWWWWWWWMM 
MWWWWWMW WWWWMMM 
MMMWWMWWWWWWWMM 
WWWWWWWWWW 



WWWWWWW WWWWXXXHMMMXX 
Wl'JWWWWWWWWWXXXXMMMMMM 
MMMMMMMMHMNXXXXXNXX " 
MMWWWWWWWWXXXXXMMM " 
yUWWWWWNWMWXXXXMMX ' 
HWWWWWWWWXXXX " 

wwwwwwwwwx XX " 

MWWWWWW 



W" 



END 
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INTEGERS: 

DESCRIPTION 

Integers generates four numbers that when squared and summed equal the 
input number. 



USERS 

This program can be used as a teaching aid by teachers and parents alike. 
It can also be used to stimulate an interest in mathematics through a type 
of game approach. 



INSTRUCTIONS 

Load the program into memory and type RUN. The program is self prompting 
and only requires that you enter an integer for it to factor. 



LIMITATIONS 

Line 80 uses an ABS( ) statement. Except for this statement the program 
should execute in most systems without incident. Integers requires IK 
Byte of memory for storage and executes in 2K Bytes of memory excluding 
the amount of memory required to store the Basic compiler. 
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'PC; 



10 PRINT "INTEGERS 



3@ 
40 
59 
60 
70 
80 
90 

1 00 

lie 

120 
130 
140 
150 
160 
170 
180 
1 99 

£09 

£ 1 S 

£30 

£40 
£50 
£60 
£70 
£8© 
£90 

300 



PRINT "!'-! = Rt£ + BtS + Ct£ + Bt£' 

PRINT 

PRINT M M H B C D" 

PR I NT " !i 

PRINT 
INPUT N 
LET N=flBS(M:i 
LET R=SQRCN) 

FOR fl = TO P 

LET fl£-fl«F! 

LET Nl=N-fl£ 

FOR B = TO Ml 

LET B£=B*T: 

LET N£=NI"B£ 

FOR C = O TO N£ 

LET C£ = C*C 

IF fl£+B£+C£ > N THEN £70 

LET B = SQR(N-fl£-B£-C£) 

IF D > INT CIO THEN £60 

IF N>=0 THEN £40 

" "J-Rj-Bj -c;-d 

6Pi 



60 



PRINT- 
GO TO 
PRINT 
UO TO 
NEXT C 
NEXT B 
NEXT fl 
GO TO 60 
END 



5 fl 5 B ? U ? I i 
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SAMPLE RUN 

INTEGERS 

N = ATE + BTE + CTE + DTE 
N A B C D 

?1E 

D E E 5 



?-45E 



D 



-1M -lb 



?3T 



?STOP 



Si 



*m 



A 



QH^& 








/s 









i 



Ik 



a^ x ^m 
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LOGIC: 

DESCRIPTION 

Logic calculates the highest possible conclusion for a specific set of 
variables. After the calculations are made the program prints truth tables 
for the various variables. 



USERS 

This program can be used to teach digital logic to students or to help 
interested individuals to better understand TTL circuit configurations. 
Interested groups would include teachers, radio amateurs, engineers, etc. 



INSTRUCTIONS 

After Logic has been loaded into memory, type RUN. The program is self 
prompting and will ask for all required inputs. The program should be 
listed for detailed instructions. 



LIMITATIONS 

Line 170 contains a Change statement, line 300 a MAT A = CON ( ), line 350 

a MAT READ, line 450 a Restore statement, and starting in line 540 an ON 

GOTO statement is used and appears again in lines 1380, 2270, 2300 and 2530. 
The source code requires 8K Bytes of memory for storage. Logic will require 
20K Bytes of memory for execution with the DIM statements as they are pre- 
sently set. If the dimension statements are reduced the program will execute 
in less than 20K Bytes of memory, but this will also reduce the number of 
logic statements the program can handle. 
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LOGIC 

15 PET! ! Oi.iilC 

18REM DESCRIPTION— -DETERMINES THE STRONGEST POSSIBLE CONCLUSION IN 

SOREM SPECIFIED UARIABLES WHICH FOLLOWS FlS Fl LOGICAL CONSEQUENCE FROM 

F'PREM A GIUEN SET OF STFlTFMENTS OF PROPOSITIONS. LOGIC AND PRINTS ITS 

34REM TRUTH TABLE, STFiTENENTS CON COUTH IN THE UARIABLES A? B? „..? T? 

£6REM PARENTHESES? UNI) THE CONNECT IOCS - (MOT) ? E (AND) , U (OR)? 

£SREM => (IF. .THEN) ? < = > C IF AND ONLY IF) , AND .-- 'NOT BOTH). UNLESS 

38REN OTHERWISE INDICATED BY PARENTHESES? THE CONNECTIVES ARE EURLUFlTED 

3£REM FROM LEFT TO RIGHT OBSERUING THE PRIORITIES ESTABLISHED BY THE 

34REN ORDER OF THE CONNECT I UES IN THE ABOUF LIST. 
36REM 

49PEM 

4EEEM INSTRUCTIONS— TYPE "RUN". WHEN THE PROGRAM PRINTS "PREMISE?") 
44REM ENTER A STATEMENT OR TYPE "DONE" TO INDICATE THAT ALL PREMISES 
46EEM HAUE BEEN ENTET'EI). AFTER ALL PREMISES HAUE BEEN ENTERED? THE 
4SREM THE PROGRAM WILL ASK FOR A LIST OF UARIABLES FOR WHICH TO DRAW 
50REM CONCLUSIONS. ENTER THE NAMES OF THESE UARIABLES? ONE AT 
52REM A TIME. ENTER DOME WHEN ALL DESIRED UARIABLES HAUE BEEN 
54REM ENTERED. ALTERNATIUELY? TYPE 'BEST' TO HAUE THE PROGRAM FIND 
56REM THE STRONGEST POSSIBLE CONCLUSIONS IN THE FEWEST POSSIBLE 
58PEM UARIABLES. 
60REM 

f-ir'PEM * 3fi 'ff. r-$ S: 3ft 3K 3K SS '#. S: 1ft ft: '■&. : M 3a S: 3K S: S S-' :£: 

64REM 

100 PRINT "-LIST FOR INSTRUCTIONS-" 

118 PRINT 

1£8 DIM ACi88)? EC£80) 

138 LET L = -1 

148 PRINT "PREMISE"; 

158 INPUT f\> 

ISO IF A£ = "DOME" THEN £70 

170 CHANGE AS TO A 

188 LET L = L+£ 

ISO LET FCL-1) = 38 

£00 LET FCL) = 48 

£10 FOR I = 1 TO A (03 

££0 LET FCL+I) = AC 1 3 

£30 NEXT I 

£48 LET L = L + FU83 + 1 

£58 LET FCL) = 41 

£68 GOTO 140 

£70 LET FlO) = L 

£80 PRINT 

£98 DIM Otic:)? T(1£0)? HSU i£) 

308 MAT A = CON CI OO) 

31S REM '$r&.'&'&#M#w&#, INITIALIZATION '#:&&:&&:#:&'&&&. 

3£0 REM 
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338 D I M B C 1 88 3 ? C C 1 88 3 ? G C 1 £7 3 

3 48 D I M N ( 1 88 3 ? S C 1 £8 ) ? U ( £8 3 ? £ ( £ 1 3 

358 MAT READ G 

368 LET GC83 =9 

*, "S"7*!-*i f"l{ — |"T*| — I *~? t '"^i ,_ J i '") * '"' 5 '"? $ '"} ? r "H j *"M * '"^ ? '"^3 '"' ? M 3 4j 4 j *"ij 5 r ~' ? '":' ? *""H * '"J ? y 5 y S y ? y ? y ? y 9 y ? y ? *!"•' ? y 

* —j * — * t-^i j^t i — i x m '"^? il? *~^ ? *"^ ? ' ■ ? '™' ? : ~^ ? ■■"* ? c "^ ? i ? =""* ? y 3 y ? y ? c* ? y ? r* ? y ? y ? y ? y ? y ? y ? y ? y ? y ? y ? y ? y ? t* 

398 DATA 5? 9s 9? 9? 18? 18? 18? 18? 18? 18? 18? 18? 18? 18? IS? 18? 18? 18? 18? 18 

488 DATA 18? 1 8 ? 1 8 ? 1 8 ? 9 ? 4 ? 9 ? 9 ? 9 < 9 ? 9 ? 9 ? 9 ? 9 ? 9 ? 9 ? 9 ? 9 ? 9 ? 9 

ci i L-i j sf"iTf~i 4 ■! 4 1 h j '-j n '-j 3 """.' * 4j 4i y ^ *-^5 *-^ 5 '-$ n '-i* '~$ * '-^ ? s j '*:' * y * : -^ « y 51 y ? y ? y 5 y ? y s y ? y 

4£8 F8R 1=1 TO £1 

438 REfiD US (13 

448 NEXT I 

458 REST8RE_ 

4 68 DflTfl fl ? tl ? C ? D ? E. ? F ? G ? H ? I ? -J ? K ? L ? M ? N ? ? P ? Q ? R ? S ? T ? F 

478 LET P = S = N = Fl = 8 

488 REM 

498 REM SrS^KWwwffijssifr: COMPILATION wssswwswww 

588 REM 

518 FOR I = 1 TO L 

5£8 LET C = GCFC 13 3 

538 IF C > 11 THEN 888 

540 ON C GOTO 558? 559? 688? 688? 648? 688? 688? 7£8? 868? 788? 1888 

558 REM PUT ( OR - INTO SYMBOL CELLAR 

568 IF Fl = 1 THEM 1858 

578 LET S = S+l 

588 LET SCS) = C 

598 GOTO 1888 

688 REM CHECK FOR REST OF => AND <=> 

618 IF I = L THEN 869 

6£8 LET I = 1+1 

638 IF F(I) <> 61 THEN 868 

648 IF I = L THEN 860 

658 LET I = 1+1 

668 IF F(I) <> 6£ THEN 868 

678 REM HANDLE BINARY CONNECT IUES 

688 IF Fl = 8 THEM 1858 

698 LET Fl =8 

788 GOSUE 888 

718 GOTO 568 

7£8 REM HANDLE 3 

738 IF Fl = 8 THEN 1058 

748 GOSUE 888 

758 IF S = 8 THEN 1858 

768 LET S = S-l 

778 GOTO 1888 

788 REM HANDLE NEW UARIABLES 

798 LET C = GCFC I -3 3 = F(I3 

388 REM HANDLE OLD UARIABLES 

319 IF Fl = 1 THEN 1958 

3£8 LET H = N+l 

338 LET NCN3 = C+36 
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848 LE ! Y 1 = I 

8 '58 GOTO 1980 

868 PRINT "0 PREMISE CONTAINS FIN ILLEGAL CHARACTER." 

870 STOP 

880 REM SUBROUTINE TO COMPILE INSTRUCTIONS 

890 IF S = y THEM 1030 

908 LET Ti = SOS) 

918 IF Li = 1 THEN 1030 

988 IF D >= C THEM 1838 

930 LET P = P+i 

940 LET CCP) =- D 

950 IF" T.i = £ THEN 1040 

960 IF M < £ THEN 1050 

970 LET N = M- 1 

988 LET BCPj = MiM+l) 

990 LET H(P) = HOI) 

1888 LET NiM) = P 

1818 LET S = S-l 

1 8£0 GOTO 888 

103O RETURN 

1048 IF N > 8 THEM 998 

1058 PRINT "fl PREMISE IS MOT WELL-FORMED." 

1 868 STOP 

1878 REM EMU OF COMPILATION LOOP 

1880 NEXT I 

1898 REM 

1180 REM CLEAN OUT SYMBOL CELLAR AMU CHECK FOR ERRORS 

1118 IF Fl = 8 THEM 1858 

1 1£S IF S = 8 THEM 1168 

1138 LET C = 8 

1 1 48 GOSUB 888 

1158 IF S > 8 THEM 1858 

1168 IF N <> 1 THEN 1058 

1178 LET R = N(l) 

1188 REM FIND UARIABLES OCCURRING IN FORMULA 

1198 LET U = 8 

1£80 FOR I = 65 TO 84 

1818 IF Gil) = I© THEM 1£48 

1££8 LET U = U+l 

1£38 LET UCU:i = HS6 

1£48 NEXT I 

18.58 IF U <= 1£ THEN 1£88 

1868 PRINT "TOO MANY UARIABLES" 

1£78 STOP 

1£88 REM ssSKSssiSisss CALCULATION OF TRUTH TABLE ssissssssss 

1898 REM 

1308 FOR Q = O TO 8TU--1 

1318 LET X = Q 

1388 FOR I = U TO 1 STEP -1 

1330 LET Y = INTC : v--"£) 

1340 LET SCUm) = X - Y*S 
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135@ LET X = Y 

1.360 NEXT I 

1379 FOR I = 1 TO P 

1330 ON C 

1 390 LET S C I ) = 1 - S C fi (I ) ) 

1400 GOTO 1500 

1410 LET SCI) = SGMC Stfld)) + SCBCD) ) 

1430 GOTO ISO© 

1 430 LET SCI) = S C fi C I )) "* 3 ( B C I ) ) 

1440 GOTO 1500 

145W LET Si I) = ( 1 ■- SCACD) ) * S(B(I)) 

1468 GOTO 1500 

1470 LET SCI) = RBSC SCR CI)) - SCBCD) ) 

1 430 GOTO 1 589 

1490 LET SCI) = 1 - SGNC SCR CD) + SCBCD) ) 

1500 NEXT I 

1510 LET TCQ) = S CR) 

1530 NEXT Q 

1530 REM ffi^sssffisssKffiSffiSiW FIND H CONCLUSION ssssffiffi^w 

1540 PRINT "VARIABLE"; 

1550 INPUT ASCI) 

1560 LET F3 = 8 

1570 IF ASCI) = "BEST" THEN 191 O 

1580 LET F3 = 1 

1590 FOR Nl=£ TO 12 

1600 PRINT "VARIABLE"? 

1610 INPUT A5CN1) 

1630 IF ASCNl) = "TONE" THEN 164© 

1630 NEXT Ml 

1640 LET Nl = Ml -1 

1650 FOR I = 1 TO U 

1660 LET Of I) =0 

1670 NEXT I 

1680 FOR I = 1 TO Ml 

1690 CHANGE H$ C 1 1 TO A 

1700 FOR .J = 1 TO F!(0) 

1710 LET C = GCACJ) ) 

1730 IF C = 11 THEN 179© 

1730 IF C > 11 THEM 1830 

1740 IF C = 10 THEM 1778 

1750 PRINT "ILLEGAL CHARACTER IN VARIABLE LIST" 

1768 GOTO £830 

1770 PR I NT" THE VARIABLE ,! jA*-CD;" DOES NOT OCCUR IN A PREMISE. 

17y« uOTO c":£0 

1790 NEXT J 

ISO© PRINT "ILLEGAL VARIABLE LIST" 

ISifcJ GOTU t:8£8 

18£8 FOR J = 1 TO U 

1838 IF VCJ) = C+36 THEN 1878 

1848 NEXT J 

1858 PRINT "ERROR IN PROGRAM" 
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1868 STOP 

187Q LET OCJj = 1 

1888 NEXT I 

1890 LET C = Nl 

1.900 GOTO £809 

1910 FOR C = 1 TO U 

19S0 REM TRY TO FIND Fl CONCLUSION IN C i.JfiRIRBLES 

1930 REM MARK FIRST SET OF C UARIABLES 

1940 FOR I = 1 TO C 

1950 LET 0(1) = i 

I960 NEXT I 

1978 FOR I = C+l TO U 

1 980 LET 0(1) =8 

1 990 NEXT I 

£088 LET Fi = 8 

£010 LET F£ = O 

£0£0 FOR P = O TO £tC-l 

£830 LET F4 = 1 

£040 REM ASSIGN TRUTH UflLUES TO MARKED URRIFlELES 

£050 LET X = p 

£060 FOR I = U TO 1 STEP -1 

£070 IF 0(1) = 8 THEN £110 

£080 LET Y = INT'iX.--£) 

£098 LET S(I) = X - Y*£ 

£100 LET X = Y 

£118 NEXT I 

£1£0 FOR Q = 8 TO £t(U-C)-l 

£139 REM ASSIGN TRUTH UflLUES TO UNMARKED UflRIflBLES 

£148 LET X = Q 

£150 FOR I = U TO 1 STEP -I 

£160 IF 0(1) = 1 THEM ££00 

£178 LET Y = I NT C yyS. ) 

£180 LET SCI) = X - Y*£ 

£198 LET X = Y 

££0© MEXT I 

££18 REM COMPUTE LIME IN TRUTH TABLE 



2££8 LET X = 





i£30 FOR I = 


1 TO U 


i£48 LET X = 


X* : £ + 3 


*£58 NEXT I 




i£68 IF TCX) 


= 1 THE 



.1.1 

HEN £300 
££70 ON F4 GO TO ££88? £3£0?£578 
££88 F4 = £ 
££90 GO TO £3£0 

£300 ON F4 GO TO £318? £578?£3£8 
£310 F4 = 3 
£3£0 NEXT Q 

£330 REM A TAUTOLOGY EXISTS FOR THIS SET 
£340 IF F£ = 1 THEN £5£8 

£350 REM THIS FACT HAS NOT BEEN NOTED PREUIOUSLY 
£360 IF Fl = 1 THEN £440 
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C oC'b r" r^. I ! i i 

£398 PRINT 'CONCLUSIONS IN"? C? "UARIABLE" 

£490 IF C = 1 THEN E4E0 

£410 PRINT "S"? 

£4£0 PRINT ": " 

£'4:3Q PRINT 

P440 REM PRINT TRUTH TABLE 

c'. 'H'Ovi? L.E. ! r x "re?. ~- : i 

P4t,@ PRINT 

£•488 IF OCI) = W THEN £500 

£499 PR t NT U$ ( U ill- 1 00 1 5 " " j 

£508 NEXT I 

£518 PRINT 

£5£0 GOSUB £990 

£530 ON F4 GO TO 1850? £540? £560 

'-'".cj-iT! EC'JNT htm 



U, v- 1 ". 



■ ~l I * - 



£560 PRINT "F" 

£578 NEXT P 

£58© IF F3 = 8 THEM £678 

£590 IF Fl = 1 THEN £8£8 

£800 PRINT 

£618 PRINT "NO CONCLUSIONS CAN BE HADE BASED ON ONLY"? 

£6£8 PRINT " THE SPECIFIED UARIABLE"? 

£630 IF C = 1 THEN £658 

£648 PRINT "S"? 

£650 PRINT 

£660 GOTO £8£0 

£670 REM GENERATE THE NEXT SET OF C UARIABLES 

£680 FOR 1=1 TO U 

£690 IF 0(1) = 1 THEN £710 

£708 NEXT I 

£710 IF I >= U THEN £750 

£7£0 FOR J = 1+1 TO U 

£730 IF OCJJ = THEN £988 

£748 NEXT -J 



U. I 



? 58 IF Fl --• 1 TlTETi £818 



£760 PRINI "NO CONCLUSIONS CAN BE MABE BASED ON ONLY" 5 Cj "UARIABLE" ? 

£770 IF C = 1 THEN £798 

£788 PRINT "S"? 

£798 PRINT 

£888 IF F'l <> 8 THEN £8£8 

£810 NEXT C 

£8£0 PRINT 

£830 PRINT "DO YOU WISH TO DRAW A CONCLUSION IN OTHER UARIABLES"? 

£848 INPUT AS 

£858 IF AS = "YES" THEN 1533 

£360 IF F\> = "NO" THEN 3848 

£878 IF As = "NEW" THEN 130 
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".-!4H 



c 


yyu 


c 


918 


a. 


9£0 


c 


930 


c 


940 


o 


9'50 


c. 


969 


IT 


978 


u 


988 


!~ 


998 


"~ 


888 


c 


*0 I *!< 


" 


0S0 




030 


"'» 


840 



GO TO £846 

LET 0(8) : - : 1 

POP j-:; = J-} I'M i 9TEP -1 

LET 0(E) = 8 

NEXT K 

IF J- I < £ THEN £988 

PQR K = 1 TO .J-I-l 

LET OCKl = 1 

NEXT K 

GOTO £018 

FOR I = 1 TO !i 

IF 0(1) = 8 THEN O0£0 

PRINT U$f.SC I )+£y) 5 " 

NEXT I 

RETURN 

END 



p 5 Kin i,i? •! 
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EXAMPLE: 

PROBLEM 

TO DETERMINE THE STRONGEST POSSIBLE CONCLUSION WHERE THE 
PREMISES ARE: 

(A a B) = >C 
(A/D) < = >C 

SAMPLE RUN 

LIST FOR INSTRUCTIONS. 

PREMISE ?(A&B)=>C 
PREMISE ?(-A/D)<=>C 
PREMISE ?3>ONE 

VARIABLE ?BEST 

NO CONCLUSIONS CAN BE MADE BASED ON ONLY 1 VARIABLE 

CONCLUSIONS IN 2 VARIABLES 

A C 

T T T 

T F F 

C D 
TFT 
F F F 



DO YOU WISH TO DRAW A CONCLUSION IN OTHER VARIABLES ?NO 
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PLAYBOY 

DESCRIPTION 

Shades of Hugh Hefner, centerfolds and Bunnies, this is a recreation of that 
famous symbol known throughout the world. Drawn first as a silhouette against 
a white background it is then reversed and drawn again with a dark background. 
Playboy will execute in 4K Bytes of memory in most Basic speaking computers. 



F'L F 



WU1 
t'-iPiP 



FOR 1=1 JO 1@ 

PRINT 

NEXT I 

EM 



10 

HP 

1 £PR I NT " sssstS*:*;*; 



1 3PR 
1 4PR 
1 5PR 
16PP 
1 7PR 
1 8 PR 
1 9PR 
20PR 
S1PR 
££PR 
£3PR 
£4PR 
£5PR 
£6PR 

C ! * I V: 

•-i»-*»rjr:« 

COrK 

£9PR 

30PR 



T NT » &&&/&&.'&'&.'#'#. 

T NT r " :?::$: $::§::£::$::< l ::#:i i :: i $ 

T NT " «S:5KSS:S:S*: SSSS 

J N.T " '*S:KS*ftSffiSHS:S»iSS»:»:»: 

J N"|" ''■ "rSSS^SS»:*:SiiKW»:»:ISS'*:*tSSfiKSSHKS-S 
J N.T !! SSSfSSSSISiS-ffiSiSSS-ffiSStW: 

T NT " s;*;sst*;»;»:i«»;»;:«»:»-:w 
I NT''^^^^**^**:*** 5 ** 5 *'*:* 



"£•• >" Hp; ;6; ■$*• -6; -u- -ill- -6; -6; ;6; -6: Jljr Ct; 
fs£ 4^ -O; Hp; J6; -6; & ;6; ;6; & 






i^Si^iitf^ 



:^:6;:6;&:6::6;:6;;6-;6; ,! 

%r^Si;>Ei;-S-*fe* -6: -6; -6; ^:|^: ;6* 16: 

■s*-s±* *s* *6* hs? *n* "^#-6* nii" -6" "6" *6* *6""6--6- "6" 
^^J6"^^^|6^^^|c;^^H5:^ii^|6: " 

|n; -J3- ^6; JS; ^3; ^jr & £r '&■& H$E- f6; ;P; f6; 

:S:^^-&^-6jJ^J6"hk-6-*6;*6;%:^ *' 



& ;6| dp; |6^ & && &&&& &&-6; -<K^:^S^i6?-6: S:^-$: -6::6: :& 



INT' 
INT 



fe:6; & & & & & ^ & :& |6- & & ^& & 
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3£PRINT ,!5K * 

O PPp J N"j" " -> : !?:S:Si:ffi ' fi\'¥. : M : «A 

•■!i4Pk" T MT" * SffiKSiffiSISKSiH-Q: : £!'*S:'a*:S:$:s£ $•" 

i-lPiF'PI NT" -^ : *:S:S:!iKW;i<KS:JK5Kiffi5K3KSK ^SffirSS-StSSSS:'* 18 

0|i." r C'p T HT " & *I$:S:S&:$:5&S#S&S:SSS££W:$: :8:£:8!8:a:8*::$:S:$: :8 

tj'T'P'pl |--JT' i sf ' ; ii-g~:S3:J£"*K'*S:£*K:&$: WS:S:5&:$:$:38:$:W3K$S *: ! 

C;or>pjK|T n ^ '-ik'ZK : &&&yfS&ik^£-"&"&.'&& : & '#&"&"*{'&"&'&&'&&'■& '■& 

OQpplF--|T"*; r?:HftS~S^-!S:S:SWSIS:S #;$:$: MS 3ft JSSS-fiSJS: :8 

^tlPPI NT n :8 : *::8:8:8r8:ft r^:£::ft-ft:ft:8:&:ft :ft ' 

4, 1 P'P J r-|T n -£ iv: : ^^:^^r^:?:^:^S^S^i$:^S:-6:-i!i:-'9;^: :v: 

4„pP'P 7 NT n "ft -ftiftrftrftrft Sftiftrftrftfftrftiftrftrftrftrftrftrftrftrftrftrftrft :ft 

,;j, OP'p J f-.|T"'' : S: ftSrft-SiftS:'* rSS!*SS::SS:S:WW:S:i^SS:SSS:'*S ft 

cj.4.p : p j |--_jt ''■ a; irJiiff-sg-^g-^fg&^^ig^"^ !ft 

A^jP'P" T Ke~F* I! 3ft :83ft:8:ft:83ft:ft?ft:ft&:&:ft^3ft®rft3ft3ft3ft?ft3ft:ft® rft 

^jpC'P' T KJT n & ^^^i^^^^i^r^^^^r^^S^Si^^^i^^S.-^: :ft 

43PRIiTT" : * «* '«'* - ss: :« ft 

^QP'p T MT n ^ ftftrftiftrftiftrftrftvftlft -ft "ft ft ft :ft 'ft" 
=:; 1 pp J NT ,! 'ffiftrftlftlftlftrftft-ftlft-ft'ftlftrftrft'ft-ft?^ 

52 FOR 1=1 TO 10 

53 PRINT 

54 NEXT I 

55 END 
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PRIMES: 

DESCRIPTION 

This program factors any input number 
should be less then eight digits. 



into its primes. The input number 



USERS 

This program can be used as a teaching aid for the student as well as the 
teacher. 



INSTRUCTIONS 

Primes is self prompting and is ready to run as soon as it is loaded into 
memory. The program can be listed for additional instructions. 



LIMITATIONS 

Primes requires 2K Bytes for storage and should execute in 4K in most sys- 
tems. 
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1 1 0REM 

1 £8REM 

133REM DESCRIPTION— THIS BRSIC PROGRAM FIMHS THE PRIME 

148REN FACTORIZATION OF Ft NUMBER. 

1 50REM 

168REM INSTRUCT IONS— TYPE "RUM" AND FOLLOW INSTRUCTIONS. 

178REM THE PROGRAM WILL STOP IF THE NUMBER 

188REM TO BE FACTORED IS . 

190REM 

S00REM 

£10 PRINT "This prdgrhh finds the pride ffetdrizrtidn ur p, nupiber. ' 

££8 PRINT "If vdli rsk it td fhctdr 9? it will, stop." 

£38 PRINT 

£48 PRINT 

£'50 PRINT "Whfit nupiber is td be frctdred"? 

£60 INPUT f! 

£70 IF A<134£177£8 THEN 318 

£88 PRINT "SORRY! This prdgrrfi is dhlv designed to fhctdr nufibers 1 

£90 PRINT "df 8 digits dp. less! Ydu firm trm rghih — " 

3 £10 GOTO £38 

318 LET D=fl 

3 £8 PRINT 

338 IF fi=£ THEN 638 

348 LET 0=8 

350 IF H>8 THEN 370 

388 STOP 

378 LET C=£ 

388 GOSUE 428 

398 FOR C=3 TO SQR(fl) STEP £ 

488 GOSUB 4£8 

418 GOTO 588 

428 LET B=8 

438 IF R=€*INT(fVC) THEN 458 

448 GOTO 488 

458 LET A=fi.-"C 

468 LET B=E+1 

478 GOTO 438 

488 IF B<1 THEN 570 

498 IF 0=1 THEN 568 

588 LET Q=l 

518 PRINT "The PRIME FACTORS of" ;d» "pre: " 

5£8 PRINT 

538 PRINT " PRIME MULTIPLICITY" 

548 PRINT " " 

558 PRINT 

568 PRINT C»E 

578 RETURN 

588 NEXT C 

598 IF A=l THEN £38 

688 IF 0=8 THEN 638 

618 PRINT fif I 

6£8 GOTO £38 

638 PRINT "The nufiber" j A? " is pride. " 

648 GOTO £38 

658 END 
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SAMPLE RUN 



THIS PROGRAM FINDS THE PRIME FACTORIZATION OF A NUMBER 
IF YOU ASK IT TO FACTOR □, IT WILL STOP 



WHAT NUMBER IS TO BE FACTORED ?lfl7E 
THE PRIME FACTORS OF 1A7E ARE: 



PRIME 

E 

3 

13 



MULTIPLICITY 

t 
S 
1 



WHAT NUMBER IS TO BE FACTORED ?13i<E:L77Efl 

SORRY! THIS PROGRAM IS ONLY DESIGNED TO FACTOR NUMBERS 

OF fl DIGITS OR LESS! YOU MAY TRY AGAIN 

WHAT NUMBER IS TO BE FACTORED 713ME177 

THE NUMBER 13ME177 IS PRIME- 

UHAT NUMBER IS TO BE FACTORED ?D 
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PROBAL: 

DESCRIPTION 

This program determines probabilities using Chi-Square calculations for 
2x2 tables. 



USERS 

Statisticians will find the most use for this program, however other in- 
dividuals using Chi-Square calculation analysis for testing the mathema- 
tical goodnes of certain curves will also find this program useful. 



INSTRUCTIONS 

The data must be entered into data statements prior to program execution. 
Starting in line 900 enter the table data in the following format: 



A B Al Bl 

CD CI Dl 



900 DATA A,B,C,D,A1,B1,C1,D1 5 , 



After the data has been entered type RUN. List the program for additional 
program details. 



LIMITATIONS 

Line 92 contains a Restore statement and line 380 contains an ABS( ) state- 
ment. The source code is 2K Bytes long and the program will require 3K Bytes 
of memory for execution. 
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PROBFlL 



10 r-fm s^ss DESCRIPTION: THIS PROGRAM COMPUTES CHI -SQUARE UALUES 

£0 REM HMD PROBABILITIES FOR ANY NUMBER OF TWO BY TWO TABLES. 

3@ REM 

40 REM ssss INSTRUCT IONS: PUT DATA IN LINES 960 Tu 997. ENTER 

SO REM THE TABLES BY ROWS: FIRST TABLE 1? THEN TABLE £? ETC.. 

8© REM 

90 READ T 

9£ RESTORE 

94 IF T <> 1E30 THEN ISO 

9b PRINT "LIST LINES 1© TO 8@ FOR INSTRUCTIONS" 

98 STOP 

ICO READ A 

101 IF A = 1E30 THEN 98 

102 READ BjCjD 
185 PRINT 

HO PRINT "TABLE'S " "» "CHI SQUARE" 

1£8 PRINT 

130 LET N = A + B + C + D 

148 LET E = A*D - B*C 

15Q LET G = N * E * E 

ISO LET Rl = A + B 

170 LET R£ = C + D 

180 LET CI = H + C 

190 LET C£ = B + H 

£00 LET X = G^(RiSR£*Cl*C£) 

£18 PRINT Aj B 

££0 PRINT Cj D» X 

£58 LET L = 1 

£60 LET G = X 

£70 LET P = 1 

£88 IF G < 1 THEN 338 

£98 LET A = L 

388 LET B = 1800 

318 LET F = G 

3 £8 GO TU 368 

338 LET fl = 1088 

348 LET B = L 

358 LET F = 1--G 

368 LET fll = £.••• C9^A) 

378 LET Bl = £.--C9*B) 

388 LET Z = ABS( tl-Bl) *Ft(. 333333) - 1 + fll) 

398 LET Z = Z --' SQRCBi*=Ft(. 666667) + fll) 

408 IF B < 4 THEN 448 

418 LET P = fl +Z'*C. 196854 +Z*(. 115194 +Z* ( . 086344 +Z®»8195£7) ) ) ) T4 

4£8 LET P = .5--P 

438 GO TO 468 

448 LET Z = Z * (1 + . 08^Zt4--Bt3) 

450 GO TO 418 

468 IF G >= 1 THEN 488 

478 LET p = 1 - p 

488 PRINT 

498 PRINT "EXACT PROBABILITY IS "5 INT < 188888^P+. 5) / 188888 

588 PRINT 

518 GO TO 188 

998 DATA 1E38 

999 END 
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EXAMPLE: 

PROBLEM 

TO PERFORM A CHI-S<3UARE ANALYSIS ON THE FOLLOWING EXE TABLES 

b id ma a it, 
a it ma is 17 



SAMPLE RUN 

tdd data t, id, a, it, iH,a,4i,a, a,ib,is,i7 

RUN 



TABLE CHI-SOUARE 

b 10 

a lb .073Eb01 

EXACT PROBABILITY IS .7331b 



TABLE CHI-SOUARE 

14 a 

41 a 3.4T1TE1 

EXACT PROBABILITY IS -DSBSb 



TABLE CHI-SdUARE 

a lb 

IE 17 .3biaE51 

EXACT PROBABILITY IS .554^1 
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QUADRAC: 

DESCRIPTION 
Quadrac solves quadratic equations. 



USERS 

This program would be useful to persons requiring solutions for quadratic 
equations, this would include teachers, students, engineers, mathematicians, 
etc. 



INSTRUCTIONS 

The program is 
self prompting 
for additional 



ready to run after it is loaded into memory. The program is 
and will request all required data. The program may be listed 
instructions. 



LIMITATIONS 

The ABS( ) statement is used in lines 130, 400 and 480. 
2K Bytes and executes in 3K in most Basic systems. 



Quadrac stores in 
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£0 DIM flf'3) 

3© PRINT 

4@ PRINT 

5@ PRINT "I SOLUE THE: QUFlDRRTIC EQ. RSY^;+B*tt+C=8 ,, 

68 PRINT 

7@ PRINT "INPUT RjBjC"? 

80 I NPUT fl C 1 ) ? Fi ( £ ) j Fi f 3 ) 

90 PRINT 

10@ LET Y1=1E36 

Ii@ LET Y£=iE-36 

1£8 FOR 1=1 TO 3 

138 LET Y^RBSiRCl) ) 

14 IE X=P THEM 168 

1 50 GOSUE 560 

160 NEXT I 

178 IF Y1<=1 THEN £O0 

ISM LET H=Y1 

198 GO TO ££0 

£00 IF Y£>=1 THEN £58 

£10 LET D=Y£ 

££8 FOR 1=1 TO 3 

£30 LET Fl ( I J =Fl 1 1 1 ,-TJ 

£40 NEXT I 

£50 IF fill TOO THEN 360 

£60 IE fi(£)=8 THEN 310 

£70 LET N=l 

£88 LET Rl=~fl(3)- y F!i:£) 

£98 PRINT "ONLY ROOT IS "jRl 

308 GO TO 588 

318 IF hi: 3) =8 THEN 340 

3£8 PRINT "NO ROOTS" 

338 GO TO 588 

348 PRINT "FILL COMPLEX #>S ARE ROOTS" 

358 GO TO 588 

368 LET B=fi f £ ) &R C £ 'J -4 . : *R ( 1 ) *fl (3) 

378 LET fl£=fl C 1 } +fl f 1 j 

388 LET R=-fli:£).-p!£ 

398 IF B<8 THEN 488 

488 LET E=RBS C SQR i. B ) .••'R£ ) 

4 18 IF R<8 THEN 448 

4£8 LET R1=R+E 

438 L-iO TU 458 

448 LET RI=R-E 

458 LET R£=flf3T-fflCl J*R1) 

468 PRINT "REAL ROOTS: "SRI?" flHB "?R£ 

478 GO TO 588 

488 LET E=RBSCSQRi:-Blx-R£) 
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499 PRINT "COMPLEX ROOTS? " 5 R? " C+ FiND -)"?£'?" I" 

500 PRINT 
510 PRINT 

5S0 PRINT "MORE EQ'S TO SOLUE (i=rES? 0=HO)"? 

530 INPUT I 

540 IF 1=1 THEN 68 

550 GO TO 610 

560 IF X>=Y1 THEN58R 

570 LET Y1=X 

580 IF X<=Y£ THEN 60O 

590 LET Y£=X 

600 RETURN 

610 END 
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RED BARON 

DESCRIPTION 

Here comes Snoopy 's arch enemy! "Ten, Twenty, Thirty, Forty, Fifty or more, 
the bloody Red Baron is rolling up the score". Execute the program and see 
him emerge right before your very eyes. The program is 5K Bytes long and 
will execute in 6K Bytes of memory. 



KHk'Ur- 



001 FUR i= : l 

80S PRINT 
«03 NEKT I 
19 REM 
11 PR I NT" 
1 SPRINT" 
13PRINT" 
14PRIMT" 
15PRIMT" 
16PRINT" 
17PPINT" 

18 PR I NT" 

1 SPRINT" 

SSPRIMT" 

31 PR I NT" 

33PRINT" 

33PRINT" 

24PRINT" 

25PRIMT" 

26PRINT" > 

37PRIHT" x> 

S8PRIMT" XX> 

39PRINT" x» 

38PRIHT"yx:K 



''"."ILJUU 

nOOOO 
uOOOO 
a 000 

::;0003 

300 •:■ 



: ,f : ,H 0000000 
■I dOOOOOOOOO 
uOOOOOOOOOO 
nOOOOOOOOOO 

00000000000 

nOOOOOOO ■:• 



' '-..-"•..-"■..'"-.•' n 












■:_.".."."...' 11 
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: I PR I NT 



32PRIHT"; 
33PRINT"; 
34PRIMT"} 
35PRIMT" 
3 SPRINT" 









37PRINT" 



3SPR 
39PR 
48PR 
41 PR 
4SPR 
43PR 
44PR 
45PR 
46PR 
47PR 
48PR 
49PR 
50PR 
51 PR 
5£PR 
53PR 
54PR 
55PR 
56PR 

58PR 
59PR 

60 PR 

61 PR 
6£PR 
63PR 
64PR 
65PR 
66PR 
67PR 
68PR 
69PR 
79PR 
71 PR 
7PPR 
73PR 
74PR 



INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 
INT" 



..I i-i 



xttus 

xXOOa 

XrtOOOOrt x! : w : !0 ' 

xlKunCsCCiO^XKx U n □ " 

xXOXKO n r; n r> r\" 

.yj I 1 pi ™'j pi rj n lt 

:X a n p a " 

I a n □ n " 
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7£ppTHT" 
77PPINT" 
78PRINT" 
79PRIMT" 

89PRINT" 
81 PR I NT" 
88PRINT" 
83PRINT" 

84 FOR 1=1 

85 PRINT 

86 NEXT I 

87 END 



TO 
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REGRESSION 2; 

DESCRIPTION 

This program performs multiple linear regressions on data groups. 



USERS 

Engineers, poll takers and people studying data samples will find the most 
use for this program. This program can also be of use to students and stat- 
isticians. 



INSTRUCTIONS 

Your data must be entered before the program 
detailed instructions on loading data. After 



is run. List the program for 
the data is entered type RUN. 



LIMITATIONS 

This program uses two dimensional arrays starting in line 510. The MAT 
READ statement is used in lines 540 and 600. The TAB( ) statement is 
used throughout the program starting in line 780. Six K Bytes of memory 
are required for program storage. With the DIM statements set as they 
presently are the program will require 32K Bytes of memory for execution. 
This number may be reduced by reducing the table sizes in the DIM state- 
ments. 



M 



■ m^ 




883 



J JWE'M nrsCPIPT ICiM- lOMRUTES ONE 0& MORE: MULTIPLE LINEAR 

1 jJOPEM -T GhESSJOMS ON A BA~! CH OF" DATA. 

]. A OR EM 

1 50REM I NSTRUCTI OriS — 

1 60REM 

170REM PLACE PATH BEGINNING IN LINE £0OO IN FOLLOWING ORDERS 

1 SSREM 

190REM N (NUMBER OF .DATA SETS OP OBSERVATIONS) 

POOREM U i. NUMBER OF" UARIABLES IN DATA BATCH) 

PIOREM G (NUMBER OF REGRESSIONS TO BE PERFORMED) 

2S8REN DATA UALUFS BY DATA SET. THAT IS: 

P30REM ENTER FIRST THE URLUES FOR ALL UARIABLES AT OBSERUATION 1? 

P40REM THEN THE i tRLUES FOR THE UARIABLES FOR OBSERUATION £? ECT. 

P50REM UARIABLES MAY BE ENTERED IN ANY ORDER? BUT THE ORDER 

S60REM MUST BE THE SAME FOR EACH DATA SET. THE POSITION OF THE 

S70REH UARIABLE IN ENTERING THE DATA IS THE INDEX OF THE UARIABLE. 

2S0REM THUS IF THERE ARE 4 UARIABLES ENTERED IN THE ORDER 

P90REM X? Y? Z? Mj THE INDEX OF Z IS 3. 

300REM NEXT? FOR EACH REGRESSION? ENTER? IN ORDERS 

310REM H (THE NUMBER OF THE REGRESSION)? THEN 

3P0EEM K (TOTAL NUMBER OF INDEPENDENT UARIABLES IN THIS REGRESSION); 

330REN Pi CENTER 1 IE YOU WANT THE UflRIFlNCE-COURRIRNCE MATRIX 

340REM PRINTED OUT? OTHERWISE ENTER 8) ? 

350REN P£ CENTER 1 IE YOU HANT THE PES I BURLS PRINTED OUT? 

368REM OTHERWISE ENTER 6)? AND THEN ENTER THE 

370REM INDICES OF THE INDEPENDENT UARIABLES FOLLOWED BY THE 

388REM INDEX OF THE DEPENDENT UARIABLE. 

390REM 

408REM IF N > £11 OR U > 17? THEN THE DIM STATEMENTS IN LINES 

41SREM 510 AND 5£0 MUST BE CHANGED. 

4S0REM 

430REM SAMPLE DATA ARE IN LINES £808 THROUGH ££38. BE SURE TO 

448REN REMOUE THE SAMPLE DATA BEFORE RUNNING THE PROGRAM WITH 

458REM YOUR DATA. 

468REM 

47P>REM 5fi 38 Si Si Si Si Si Si Si Si S: 38 Bt S S S Si Si Si Si S S S S S Si Si Si Si Si Si Si 

4S8REM 

498 PRINT "LIST THIS PROGRAM FOR INSTRUCTIONS. " 

580 PRINT 

510 DIM XC17? 17) ? A 1. 17? 17) ?D (£1 1 ? 17) ?YC17) ?!1C17) ?SC17) 

5£0 DIM TC17) ?BC17) ?LU 17? 17) ? Rf 17? 17) ?C C 17? 17) ? QC£1 1 ) ? EC 17) 

53© READ N? U? G 

540 MAT READ DCN?U) 

550 FOR 1=1 TO N 

568 LET DCI?0)=1 

C I7R NFKT T 
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5o0 RLfiXi H? Kj PI? F"8 

59@ LET Pi = K + i 

609 MAT RERD E. (M3 

61@ PRINT " ss Pegressidn NuriBEF:"? H? " : Ijependeint Urrirbl_e is"?L(M) 

6£0 PRINT 

630 IF H>1 THEM 780 

64@ FOR 1=0 TO U 

659 FOR .J=0 TO i.J 

660 LET X=8 
670 FOR L=i TO M 
680 



LE'i X=X+ln"!_j IJ^BCL 



690 NEXT L 

700 LET XCI ? Jj=X 

710 LET ClI? J')=K 

7 £8 NEXT J 

730 LET T(IJ =X f ? I 3 ■■-■■"X ( 8 ? 8 ) 

740 LET £ CI 3=0 

750 IF 1=0 THEM 770 

768 LET BCI)=SQR(X(I? 1 1 ,-■ f M-l 3 -XC0? 1 3^X10? 1 3 -•■ CM"* CN-i 3 3 3 

770 NEXT I 

788 PRINT TflB(7}; ,, TNDEX"?TfiE(££j; ,, MEflNS"JTflE(33)5 ,, STflNDflRD DEW." 

790 FOR 1=1 T8 M 

888 LET MCI3=TCE'CI3 3 

818 LET S 1 1 J =E i E i 1 1 3 

888 PRINT EC 1 3 » MCI3 » SCI3 

838 NEXT I 

848 PRINT 

858 PRINT 

869 PRINT "Cdrrelrtidn Cdefficients" 

878 IF H>1 THEM 938 

888 FOR 1=1 TO U 

898 FOR -J=l T8 U 

988 LET RCI? J3 = CN s; XCI? J3-XC8? I3®XC0? J3 3 ••-" ChFCN-1 3 ffi BC 1 3* : Bt J3 3 

910 NEXT j 

988 NEXT I 

938 FOR 1 = 1 TO M 

948 FOR ,J=i TO M 

958 LET UCI?J3=R (EC 1 3 jECJJ 3 

960 PRINT UC I? J 3 ? 

978 NEXT J 

988 PRINT 

99© PRINT 

1880 NEXT I 

1818 PRINT 

18E-8 LET EC 83 =8 

1838 FOR 1=8 T8 K 

1 848 LET Y C 1 3 =€ C E C 1 3 » E C M 3 3 

1858 FOR J=0 T8 K 

1 868 LET X C I j J 3 =C C E C 1 3 » E C J 3 3 

1078 NEXT J 

1888 NEXT I 
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189ti i- Ok 1=0 I'O ¥'. 

1 1 W@ FOR -J=0 TO K 

1118 IF TO J THEM 1148 

1 1 29 LET' R f 1 5 , ! 1 - 1 

1 1 30 GO TO I 158 

1 158 next j 

1180 NEXT I 

1 1 70 FOR I =8 TO !< 

1 1 80 IF X C I , I j < 1 E-6 THEM 1 938 

1190 LET Y(I3=YC 13 Oil? I) 

1818 LET Fl C I ? .J 3 =Fl i" I ? J 3 O ( I ? I 3 

1880 IF ...1=1 THEM 1848 

1 838 LET X i I ? J i =X ( I ? J ) O C I ? 1 3 

1848 NEXT -J 

1358 LET XCI? 13=1 

1368 FOR L=8 TO K 

1370 IF L=I THEM 1350 

1 888 LET Y C L 3 = Y ( L 3 ~Y ( L ? 1 3 * Y C 1 3 

1398 F8R 8=8 TO K 

1 388 LET fi ( L ? ...i 3 =8 ( L 5 J 3 -X ( L ? 1 3 S H ( I ? J 3 

1318 IF J=I THEM 1338 

1 338 let x i: l ? j 3 =:>=: c l ? j 3 -x c l ? 1 3 &x 1. 1 < j 3 

1338 MEXT J 

1348 LET XCL? 13=8 

1358 NEXT L 

1368 NEXT I 

1 378 LET 86=8 (. E f M 3 j E t M 3 3 

1338 FOR 1=8 TO K 

1 398 LET 36=86- Y L 1 3 ®C i E i 1 3 ? E ( M 3 3 

1488 NEXT I 

1418 LET 87=86.-" (NO 3 

1 438 LET RS= 1 -S?s C 8 ( M 3 *S ( M 3 3 

1438 LET R=SQR(RE3 

1448 LET S8=SQRCS73 

1458 IF PI =8 THEN J 478 

1468 PRINT "Urrirnce-Cdmhrirnce: Mrtrix" 

1478 FOR 1=8 T8 K 

1488 FOR 8=8 TO K 

1 498 LET fi C I O) =fi C I j J 3 *S7 

1588 IF PI =8 THEN 1538 

1518 PRINT fid j. J) j 

1538 NEXT -J 

1538 IF Pl=8 THEN 1568 

1548 PRINT 

1558 PRINT 

1568 NEXT I 

1578 PRINT 

1588PRINT THBC73 \ " IHHEX" 5 TfiBf 353 5 "E" 5 TRB (333 J "STB,, ERmp"? 

1598 PRINT TAB f 56) S "T-FflTIO" 
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168@ FOR I=@ TO 
1618 PR I NT E ( I ) ? 

1638 PRINT 



CI)? SQR. (fl f I ? I ) ) ? Y ( I ) -•••"SQR (H ( I ? I ) ) 



5auRRr.D=" IRE? "R=" ?R 
>trnp. Error df Est„="?S8? "I}.F'.="j CN-N) 



CI-l) )*(Q(I)-Q(I-D) 



1650 PRINT 

1660 PRINT "■; 

1670 PRINT 

1688 FOR 1=1 TO N 

1690 LET Z=D(I»E(Mn-YC0) 

1700 FOR J=l TO K 

1710 LET Z=Z-Y C J J *-D ( I ? E (3 J ) 

17S0 NEXT J 

1738 LET Q(I)=Z 

1740 NEXT I 

1758 LET W=0 

1760 FOR I=£ TO M 

1770 LET W=W+(Q(I)' 

1780 NEXT I 

1790 PRINT 

ISO© IF P£=0 THEN 1870 

1318PRINT TAB (6) 5 "ACTUAL"; TAB (18) 5 "PREDICTED" 5 TAB (34) ? "RESIDUAL" 

1888 LET I = 

1838 LET 1=1+1 

1 94@ pr i f-|T f| f j , £ f jyj ; f -j , li C I ? E ( M ) ) -Q 1 1 ) ? Q ( I ) 

1858 IF I = N THEM 1878 
1868 GO TO 1838 
1870 PRINT 

1888 PRINT "Durbin-Wrtsdn 8tht.=" ?UL86 
1898 IF H<G THEN 191© 
1988 GO TO 1948 
1918 PRINT 
1980 GO TO 588 

1938 PRINT "Cdrrelrtidn Mhtrix e-ecxipung sinculhr" 
1948 PRINT 

1959 PRINT " ^^^^^pRnBLEFi CamPLE:TEO*" :s; * ; * ;s; " 
1968 STOP 

8888 DATA 15? 4? 4 
8818 DATA 3£? 48? 54? 15 
£888 DATA 36? 33? 19? 16 
8838 DATA 3? 88? 38? 14 
£048 DATA 18? 33? 64? 88 
£858 DATA 36? 34? 68? 84 
8868 DATA £4? 36? 53? 19 
£878 DATA 19? 43? £9? 13 
8888 DATA 88? 33? 55? 15 
8898 DATA 87? 36? 6£? £3 
£188 DATA 15? ££? 33? 1£ 
£118 DATA 45? 46? 68? 85 
81 £8 DATA 9? £8? 48? 17 
|:8? 45? 13 
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c: 1 -H-ti 

£159 

£ 1 68 
£17© 
£189 
£ i 99 
££80 
££10 
£££0 
££39 



BHTfi 
DflTR 
DRTfl 
DRTfl 
DRTfl £? 
IiRTfl 1 
DRTfl 3? 
DflTR i 
DRTfl 4 
DflTR 4 5 
END 



i ? 1 j 



1? 1 

1?0 



1? 



0? 1 

3? 4 

? 



V-i i 



19 

18 
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ROAD RUNNER 

DESCRIPTION 

Has anyone seen the coyote? Well check around before you run this program, 
because it generates a likeness of the Road Runner, that speedy bird that 
spends Saturday mornings "foiling" the attempts of the coyote to catch him. 
It only takes 8K Bytes of memory to ginn up a copy of this bird, if your 
computer can catch him. 

ROFlli RUMMER 



1381 FOR 1 = 1 
S0£ PRINT 

sea ne^:t i 

10 REM 

11 PR I NT" 

1 SPRINT" 

1 SPRINT" 

14PRINT" 

15PRINT" 

16PRINT" 

17PRINT" 

1 SPRINT" 

1 SPRINT" 

S0PRINT" 

£1 PR I NT" 

££PRINT" 

£ SPRINT" 

S4PRINT" 

25PRINT" 

S6PRINT" 

£7PRINT" 

£8PRINT" 

£9PRINT" 

38PRINT" 

31 PR I NT" 

3SPRINT" 

33PRINT" 

34PRINT" 

35PRINT" 

3 APR I NT" 
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PRR " 
RRRR RRRRRRRR 
RRRRRR RRRRRRRRPRRR " 
RRRRRRRRR PRRRRRRRRRRRRR ' 
RRRRRRRRRRRRRRRRRRRRRRRRRR 
RRRRRRRRRRRRRRRRRRRRRRRRRR 
RRRRRRRRRRRRRRRRRRRRRRRRRRR 
RRRRRRRRRRRRRRRRRRRRRRRRRRRR 
RRRRRRRRRRRRRRRRRRRRRRRRRRRR 
RRRRRRPRRRRRRRRRRRPRRRRRRRPRR 
RRPPRPPRRRRRRRRRRRPRRRRRRRRRR ' 
PRRRRRRRRRRRRRPRRRRRRRRRRRRRRR 
RRRRRRRRRRRRRRRRRRRRRRRRRRRRR " 
RRRRRRRRRRRPRRRRRRRRRPRRRRRRR " 
RRRRRRRRRRRRRRRRRRRRRRRRRRRR ' 



RRRRRR 


RRRRRRRRRRRR RRRRRR 


RRRR 


RRRRRPRRRRRRRPRR 


kk 


PRRRRRRRRRRRRR" 


£> 


RRRRRRRRRRRRR" 




RRRRRRRRRRRR 




RRRRRRRRRRR 




RPRRRPRRRR " 




RRRRRRRRR 




RRRRRRRRR 




RRRRRRRRR" 




pp.ppppp.f;. " 



889 



37PRINT" 




38PRINT" 




39PRINT" 




48PRINT" 




41PRiriT ,! 




4£'PRINT" 




4 SPRINT" 




44PRINT" 




4PipPTHT" 




46PPIMT" 




47PPINT" 




48PRINT" 




4 SPRINT" 




5 SPRINT" 




51 PR I NT" 




cr-inn t mt >; 

■.ic.rp.iM ! 


':■■":■■ 


5 SPRINT" 


'■.■•":: 


54PRINT" 


':•■":. 


55PRINT" 


,-■ 


56PRINT" 




57PRINT" 




58PRINT" 




5 SPRINT" 




60PRINT" 




61 PR I NT" 




6SPRINT" 




6 SPRINT" 




64PRINT" 


BBBEB 


65PPIMT" 


BE EBBBBEBBEE 


6 SPRINT" 


BB BBBEEEBEEEEEE 


67PRINT" 


BB BBBBBBBBBBBBBBBB 


68PRINT" 


BBB BBEEEEEBEEE BEEB 


6SPRINT" 


BBBBEBEEBEEEEEEE I 


7 SPRINT" 


E BBBBBBBEBBB BBBE 


71 PR I NT" 


BE BEBBBEEBEBB BEE 


7 SPRINT" 


BEE BBBBBBEBBB BE E 


73PRINT" 


BEEEEBBEBBBEBBBBBEEE 


74PRINT" 


BEBBBBBBBBEBBEBBEEEE 


75PRINT" 


B BEBEBEEBBEBEEEBE B 


76PRINT" 


EE BBEBBEEBBEBEEE 


77PPINT" 


BBBBBBBBBBBBBBBB 


78PRINT" 


BBEBBBBBEBEBBEB EEEBE 


7SPRINT" 


BBBBBBBEBEBEEE EEEBEEB 


8SPRINT" 


BBEBBBBBEBBBEEBBBEBBBB 


81 PR I NT" 


BEBBBBBEBBBEBEBE BE 


8SPRINT" 


BBBBBBBBBBBBB B 


83PRINT" 


BBBBBBBBBBB 


84PRINT" 


BBBBBEBBEEE 


8 SPRINT" 


BBBBBEEEBE 


8 SPRINT" 


B BBBEEEEBE 


•J7PDTWTS 


BB BBEEEEBBBBE 



i'RRRRRRR 

:'.RRRRRR 
i'RRRRR" 

^RPPPP ,! 



u 



■ It 



H 



i I': 



■■.KK UU 
? : " K X :: !00! : 



c.X> : !U 

•;xu h 
: : i| hx 



J H 



V V: 1 ':•:":•:* V.' 1 ' 
it 
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88PRI 
89PRI 
98PRI 
91 PR I 
98PRI 
93PRI 
94PRI 
9 5 PR I 
96PRI 
97PRI 
98PRI 
99PR1 

100PR 

101PR 
10£PR 
183PR 



NT" 

NT' 

NT' 

NT' 

NT" 

NT" 

NT" 

NT" 

NT 

NT 

NT" 

NT 

INT" 

INT" 

INT" 

INT" 



BBBBBBBEBBB 
BBEBBBBBBB 
BBBBBBBB 

BEBBBBB 



i ! II 

YYY YYY 
YYY YYY YYY 
YYY YYY YYY Y Y 
YYY YYYYY 



iBBB 
BBBEBB 
BBBEBB 



BBBB 



104PRINT' 



I i I I 



105PRINT" 



T T T T T T T T T T T 'i' T T T T Y T T T T Y Y T T T T T . :: . 



106PRINT" 
107PRINT" 



T Y T T T T T T T T T T T Y Y Y Y Y Y Y Y Y T Y Y Y Y Y "I "I "I "I 



; i I 
YYY 



188PRINT" 



189PRINT" 



11 SPRINT" 
1UPRINT" 
11 SPRINT" 
II SPRINT" 
H4PRINT" 
11 SPRINT" 
11 SPRINT" 
117PRINT" 
113PRINT"XXK 
119PRINT"X X 

120PRINT":*: :-: 

1£1PRINT"XXX 
1££PRINT"X X 
1£3PRINT"X X 
1£4PRINT"X:« 
1£5 FOR 1=1 TO 
1£6 PRINT 
1£7 NEXT I 
1£8 END 



i i 
YYY 



i i i 
YY YY 



V I ! 
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ROULETTE: 

DESCRIPTION 

Welcome to the game of Roulette, as played in the casinos in Las Vegas. 
This version of the game allows you the option of placing your bet in 
a variety of ways or combinations. The program will also draw the game 
board for you to place your bets on. 



INSTRUCTIONS 

The program is self prompting and requires no set up prior to execution. 
For detailed instructions you may list the program, however upon execu- 
tion Roulette will ask if you would like instructions. By responding yes 
to the computer the instructions will be listed. 



LIMITATIONS 

Roulette should execute in most 4K Basic systems without any problems 
providing there is sufficient memory for program execution. The source 
code requires 4K Bytes for storage and 6K to execute. 
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POUL FTTF.: 



1 00 
115 
138 
145 
166 
175 
1 90 
£05 
££0 

O O ^ 

£50 
£'65 
£80 
£95 
310 
3£5 
340 

370 

400 

415 
430 
445 
460 
475 
490 
505 
5£0 
535 
550 
565 
580 
595 
6 1 
6£5 
640 
655 
670 
685 

700 

715 
730 
745 

760 



Hi 



= "H0" 
"HNS 



CHILD YOU LIKE INSTRUCTIONS - YES OR NO"? 



THEM £65 
THEN 460 

THEN 460 
HER - YES OR NO - PLEASE ! " 



"NUt" 
"THE 

"Mir 

"REP 
" 40 

" 39 
"4£ 
"43 
"44 
" 00 



EERS 

NUMB 

EER E 

RESEh 

REPRE 

BETS 

p r~ -r c 

BETS 

BETS 

BETS 

IS NO 



GAME YOU RRE ALLOWED TO BET ON I ND I U 1 DUAL " 
IUNBER SETS? OR ODD OR EUEN NUMBERS. " 



REM THIS IS THE GAME: OF ROULETTE 
PRINT "WELCOME TO THE GAME OF ROULETTE" 
PRINT 
PRINT 
INPUT 
IE A 

IF AS="Y 
IE AS="N 
IE m 
PRINT 
GOTO 145 
PRINT 
PRINT " 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT- 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF 
IF 



TH 

TH 

T I 



"HEMSELUES? 

EUEN. 
E NUMBER 
E NUMBER 
E NUMBER 
E NUMBER 
E NUMBER 



ANTi 



REPRESENTS 



EPS GO FROM GO TO 36. YOU BET 
ETHEEN O AND 44. THE NUMBERS 
T 
SEN 

TH 

TH 



-1 REPRESENTS 



SET FROM 
SET FROM 
SET FROM 
SET FROM 
SET FROM 



19 



13 



TO 
TO 
TO 
TO 
TO 



ODD 
18" 
36" 
1£" 
£4" 
36. " 



ENTERING A' 

ro 36 " 

00 . " 

BETS. " 



•ICLUIiED WHEN VQU BET ODD. 



"IF 
"TYP 
AS 
A$="PRI 
A£="P" 
GOTO 880 
PRINT 
PRINT 
B$ai=" ffi 

B$ C £ ) = " ffi 
PRINT ESQ 
PRINT " * 
B$(3)=" •« 
PRINT ESQ 

FOr'~ 1 = 1 TO 
U=U+3 
PRINT B$C£ 
PRINT BS(1 
NEXT I 



YOU WOULD LIKE A PRTNT OUT OF THE TABLE" 
E THE WORD PRINT"? 

NT" GOTO 580 
GOT'O 580 



i 



!■•■! 



UK 



j.-jfl »: 1 1 



) 5 U? BS (£3 5 U+l ? B$ (£) ? U+£? B$ OS) 
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790 FOR 1 = 1 T'O 9 

805 8=4.1+3 

£.90 PR I NT R£ (33 ? U ? B£ f 3 3 5 U+ 1 ? B$ ( 3 ) ? U+S j B£ C 3 ) 

835 PRINT BST13 

853 NEXT I 
!-;£,!=; F'pTNT 

380 PRINT 

895 PRINT "HOW MUCH MONEY TO YON H8UE TO SPEND"? 

918 INPUT R5 

995 G=G+1 

94y if q>5 GOTO 985 

955 PRINT "PICK YOUR BET NUMBER. CO TO 443"? 

970 GOTO 1800 

985 PRINT "WHflTS YOUR NUMBER"? 

1800 INPUT B 

1015 IF B>44 GOTO 935 

1080 IF B<0 GOTO 935 

1045 IF G>5 GOTO 1090 

1060 PRINT "HOW MUCH MONEY DO YOU WANT TO BET THIS TIME"? 

1075 GOTO 1105 

1090 PRINT " RMOUMT !"? 

1 105 INPUT C 

1130 IF R5=C GOTO 1195 

1135 IF R5>C GOTO ] 195 

1150 PRINT "YOU DON'T HflUE THRT MUCH MONEY!" 

1165 PRINT "THE' MOST YOU CRN BET IS "H5" DOLLARS." 

1 1 80 GOTO 1 860 

1195 N=INTCRMIn;-i;i*iyi7i) 

1310 IF N>37 GOTO 1195 

1335 IF B>37 GOTO 1390 

1340 IF B=H GOTO 1338 

J. c •„■-_« n - 1 — I — g_ ? — !„.. 

1370 IF R5>9 GOTO 1330 

1385 GOTO 1680 

1308 PRINT M" YOU LOST BUT YOU STILL HRUE "R5" DOLLARS LEFT." 

131D GOTO 9£5 

1 338 D=35*T8 

1345 R5=R5+D 

1360 PRINT H" YOU S'# WON *■:*= m mom yOU HROE "R5" DOLLRRS. " 

1375 GOTO 935 
39 

1438 IF N>18 GOTO 1450 

1435 GOTO 1465 

1458 IF N<'37 GOTO 1535 

1465 R5=H5~-C 

1488 IF R5>0 GOTO 1518 

1495 GOTO 1680 

1510 GOTO 1300 

1 ~=c'-_,- hi™ 5 —- 1 - 1-_* ~^™ L- 

1540 GOTO 1360 
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1555 IF N>18 GOTO j 465 

157@ IF N>36 GOTO 1465 

1585 GOTO 1585 

1608 PRINT N" VOL! LOST FIND ARE OUT OF MONEY..." 

1615 PRINT 

1630 PRINT 

1645 PRINT "MOULD YOU LIKE TO PLAY IT RGRIM. (YES OP NO)"? 

1660 INPUT Z5 

1675 IF Z$="YES" GOTO 468 

1690 IF Z$="Y" GOTO 460 

1 705 GOTO 8088 

1788 IF E>41 GOTO 1855 

1735 Y=(Nx-p)-Irfr(M,-i?} 

1758 IF E=41 GOTO 179^ 

1765 IF Y>.81 GOTO 1465 

1788 GOTO 1585 

1795 IF N=37 GOTO 1465 

1818 IF N=8 GOTO 1465 

1885 IF Y>.@1 GOTO 1585 

1848 GOTO 1465 

1855 IF E=4£ GOTO 8885 

1870 IF E=43 GOTO 1945 

1885 IF N>£4 GOTO 1915 

1980 GOTO 1465 

1915 IF N=37 GOTO 1465 

1938 GOTO £850 

1945 IF N>18 GOTO 1975 

1968 GOTO 1465 

1975 IF N>£4 GOTO 1465 

1999 GOTO £858 

£085 IF N>8 GOTO £835 

£8£8 GOTO 1465 

£035 IF N>1£ GOTO 1465 

£058 fl5=C*£+R5 

£865 GOTO 1368 

£088 END 
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SANTA 

DESCRIPTION 

Thats right! It's Santa Claus, and he is still on the go. Doens't he ever slow 
down? Santa will store in 4K Bytes of memory and will run in 5K Bytes of avail- 
able memory, thats in addition to the space taken up by your compiler. 



ITR 



@Q1 r'RINT 

00SPRINT 

003PRINT 

004PRINT 

065PRINT 

006PRINT 

007PRIHT 

098PRINT 

00SPRINT 

MISPRINT 

011PRINT 

01 SPRINT 

01 SPRINT" 

014PPINT" 

01 SPRINT" 

01 SPRINT" 

617PRINT" 

01 SPRINT" 

01 SPRINT" 

0S0PRINT" 

0S 1 PR I NT" 

0SSPRINT" 

0S3PRINT" 

0S4PRINT" 

0S5PRINT" 

0P6PRINT" 

0S7PRINT" 

0SSPRINT" 

029PRINT" 

030PRINT" 



00000000. . . . . 

00£!00000£100 « . 
9000 . 0000000 
0000000000 . 
000000000000 

0000000000 

SiSiSiiiSpl 



■:"::' :Si#:i6iSiSiSi 

:"x| SiiSiSiffiSiSi 

fi£ -6; f^I* $■ '•& '•$ $• 

Si & Si Si Si Si Si Si Si Si Si 



.-'i#i:$i:iK$i 
SiSiSiSiSiSiSi 
*i &Si SiSi Si Si Si Si 
£ Si Si Si Si Si Si Si S :Si 
Si Si Si Si Si Si Si Si 
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031 PRINT" 
033PRINT" 
033PRINT" 
034PRINT" 
035PRINT" 
036PRINT" 
037PPINT" 
038PRINT" 
S39PRINT" 
848PRINT" 
041 PRINT" 
042PRINT" 
043 PRINT 
044PRINT" 
045PRINT" 
046PRIMT" 
847PRINT" 
048PRINT" 
849PRINT" 
050PRINT" 
051 PR I NT" 
05SPRINT" 
060PRINT" 
0folPRINT" 
062PRINT" 
063PRINT" 
064PRINT" 
065PRIMT" 
866PRINT" 
067PRINT" 
068PRINT" 



^ ^r :tt i*K 5K Ittitt 5K *:-:* 



i i 



K'i ) 3 ) ) 3 

3 3 3 3 3 3 3 

j ) ) } 3 ) 3 

"i "i 1 1 ;i ;i ;i 



j 3 J J J 

3 3 3 3 3 3 3 

3 3 3 3 3 3 3 

3 3 3 3 'i i i 



J 3 J 3 
1 i 1 3 



j j 
3 3 

"I '! 



J J 3 J J J 
3 3 3 3 3 3 
"i 'i i 1 "i "i 



i i i i i i i 



J J 3 J 

3 3 3 
'! 'i 1 "I 



J J J 3 J r'X 

3 3 3 3 13 

3 3 3 3 3 3 3 

"i 1 "i i 1 "i 'i 



i i 



i i 



! i it 



3 J 
3 3 
'i 'i 



J J 3 ;K> : ;? : !, K ..KK. s .X? : .? <: .' 
3 3 3 H'IKXK!KX;-X :: X 

3333 ;< k ;;>£ : X k X k x 

3 3 3 3 3 3 >XK> : X : - : X 
3 3 3 3)3 :>XhX*X 
3 3 3 3 3 3 3 3 3 3 XX> : X 
i i "i i "ii 11 1 1 1 1 1 1 



i i 



869PRINT" 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 ) 3 3 3 3 3 



: ,, :: .X. K "?X J J 

■,'A) 3 3 3 3 3 

■, 3 3 3 3 3 3 3 

1 i 1 3 1 3 'i 



>=XO : ;j 3 ' 
K 3 3 3 3 3 3 3 
3 3 3 3 3 3 3 3 3 
3 3 3 3 3 3 3 3 
3 3 3 3 3 3 3 3 3 
1 1 1 I i "i "I i 1 



070PRINT" 

071 PR I NT" 

07PPRINT" 

073PRINT" 

074PRINT" 

075PRINT" 

076PRINT" 

077PRINT" 

873PRINT 

379 PRINT 

080 PRINT 

081 PRINT 
08£ PRINT 
083 PRINT 

884 PRINT 

885 END 



1 



'3333 

3 3 3 3 3 

3 1 i 



3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
j 3 ) 1 3 3 1 1 1 3 1 1 3 3 3 

3 3 3 3 3 3 3 3 3 3 
3 3 3 3 3 3 3 3 3 3 3 
3 3 3 3 3 3 3 3 3 3 3 3 
13 3 3)3)133333 
3 3 3 3 3 3 3 3 3 3 3 
, i i 1 i 1 I 1 " 



i 1 



3 3 ) J 
3 3 3 3 

1111 



3 J J 

3 3 3 

3 3 3 

1 '! 1 



I I 



I ! 



) 3 ) ) ) 3 3 

3 3 3 3 3 3).. 
3 3 3 3 3 3)33 
3 3 3 3 3 3)33 
3)33331)3 
3 ) ) ) ) 3 3 3 3 
1)1)11 " 



) J ) 
3 3 3 



J 3 
1 1 



3 J ) 
1 ) 1 



!• 3 J 
"! 1 



1 I " 
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STAT 10: 

D ESCRIPTION 

This statistical program calculates, for 2 groups of paired data; having 
equal variances, the mean, standard error, difference, difference error 
and T ratios. 



USERS 

This program will be most useful to statisticians and engineers having a 
need to compare data groups. 



INSTRUCTIONS 

Your data must be entered in data statements, starting in line 900, before 
the program is run. Use the following format for entering your data: 

900 DATA G1,G2,G3 

950 DATA H1,H2,H3 

where 

Gl - is the first data point of group one 

G2 - is the second data point of group one 

G3 - is the third data point of group one 

and so forth until all the points are entered. Then: 

HI - is the first data point for group two 
H2 - is the second data point - and so forth 

After the data is entered type RUN. List the program for additional infor- 
mation. 



LIMITATIONS 

Line 92 contains a Restore statement and the TAB( ) statements is used in 
lines 260, 330, and 400. The source code is 2K Bytes in length and Stat 10 
will execute in 3K of memory. 



898 



ST FIT 



£8 
3@ 
40 
60 
70 
80 
90 
9£ 
94 
96 
98 

100 
110 

1£0 
13© 
148 
150 
168 
170 
188 
1 98 
£08 
£10 
££8 
£38 
£40 
£58 
£68 
£78 
£80 
£90 
388 
318 
3£8 
338 
348 
358 
368 
378 
38@ 
399 
4 00 
410 
4£0 
430 
998 

C19Q 



REM ^^DESCRIPTION: COMPUTES THE MEANS? standard error of means? 

REM MEAN DIFFERENCE) STANDARD ERROR OF DIFFERENCE? AND 

REM T-PflTIO FOR TMO GROUPS OF DATA? PA I RED. THIS PROGRAM ASSUMES 

REM THAT THE TWO GROUPS HAUE AN EQUAL URRIANCE. 

REM *** INSTRUCT IONS FOR USE: PUT IN DATA AS ORDERED 

REM PAIRS IN LINE 988 AND FOLLOWING? MAKING SURE THAT YOUR DATA 

REM LINE NUMBERS DO NOT EXCEED 997. 

READ T 

RESTORE 

IF T <> 999999 THEN 188 

PRINT "LIST LINES 18 TO 88 FOR INSTRUCTIONS'' 

STOP 

READ X 

IF X = 999999 THEN £18 

READ Y 



LET N 



n 



LET SI = SI + X 

LET S£ = S£ + X* 

LET Ul = Ui + Y 

LET U£ = U£ + Y* 

LET Dl = Ul ■+ X 

LET D£ = D£ + (X 
GO T8 188 



■Y ! f;- : 



LET < 
LET S 
LET < 
LET S 



'61 s 



= m*ss - si^sn.--N/m-ij 

= SQR ( S4 3 
5 = c;qri;s4.---N:i 

PRINT "GROUP"? "NUMBER"!" MEAN STD DEUIATION STD ERROR MEAN" 
PRINT TAB (8) ? 1? TAB (14) jN?TRB(£6) I S3? TAB (431 5 S5 ; TAB ( 68 ) ? S6 

PRINT 

LET U3 = Ul-'N 

LET U4 = (N*U£ - U1*U1)^M^(N-1) 

LET U5 = SQROJ4 3 

LET U6 = SQR(U4--'N) 

PRINT "GROUP"? "NUMBER"! "MEAN STD DEUIATION STD ERROR MEAN" 
PRINT TAB (83 5 £? TAB ( 14) j N? TAB (£6 3 5 U3? TAB ( 433 ? U5? TAB (683 5 U6 

PRINT 

LET D3 = Dl.-T-l 

LET D4 = CN«D£ - DI^Dl) /1V(N-i 3 

LET D5 = SQRCD4 3 

LET D6 = SQR(D4--N3 
PRINT " MEAN DIFFERENCE URRIANCE OF DIFF!"?"STD ERROR OF DIFF? " 
PRINT D3?TSBC£83 ?D4? TAB (55) ? D6 

PRINT 

LET T = D3---D6 

PRINT "T-RATIO ="5T5 "ON" ?N-1 ? "DEGREES OF FREEDOM." 
DATA 999999? 999999? 999999 

END 
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EXAMPLE: 

PROBLEM 

TO ANALYZE TUO GROUPS OF DATA: (1 , 2 , 3 ,^4, 5, b) AND (2 , 3 , 5, 5, b, 7) 

SAMPLE RUN 

TDD DATA 1,2, 2,3, 3,5, M,5, 5,b, b,7 
RUN 



GROUP 


NUMBER 




MEAN 


STD* DEVIATION 


STD. ERROR 


MEAN 


1 


b 




3.5 


l.fi?Dfi5T 


•7b37b2b 




GROUP 


NUMBER 




MEAN 


STD. DEVIATION 


STD. ERROR 


MEAN 


1 


b 


M 


• bbbbb? 


l.flblfl^ 


.7tDlltT 





MEAN DIFFERENCE 
-l.lbbbb? 



VARIANCE OF DIFF. 
■Ibbtbb? 



STD- ERROR OF DIFF 
.lbt.L-t.b7 



T-RATIO = -7 ON S DEGREES OF FREEDOM 



4 



L" ■ 






[' 



Til 
■III 



mi 



Mm m^nm 
■'\ _J-cr' m I- •■] \'\ : 4 E m Mm m 






JJ 



lii R 



-■■■■■I 



900 



STAT 11: 

DESCRIPTION 

Stat 11 determines probabilities of an unknown population mean using sam- 
ple statistics. 



USERS 

Statisticians would find this program to be useful for rapidly determining 
limits on various populations. 



INSTRUCTIONS 

The program is self prompting and should be listed for additional instruc- 
tions. After Stat 11 has been loaded into memory type RUN. The program will 
ask for inputs for five variables N,M,S,W and X. Where: 

N - is the sample size 

M - is the sample mean 

S - is the standard deviation 

W - is the population size (0 is infinite) 

X - is the population mean to be tested 



LIMITATIONS 

Line 190 contains a DEF FN statement 
Line 820 contains an ABS( ^statement, 
for storage and will execute in 5K. 



and is used throughout this program. 
The source code requires 3K Bytes 
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DATA 

DATA 

DRTfl 

DRTfl 

DATA 

DATA 

DATA 9999867 ? 99999 15? 9999946 

D I M XC493 

f (Ut£)+1) ^"f4«D) 
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DEF FND(U)=X 
DEF FNT(U)=L 



i 1 3* : CUtc' ) t£+8® ( Uf £) +3) -•" ( 96 K Dt£) 



FOR I = 1 
READ X i I ) 
NEXT I 
PRINT 
INPUT 

IF 00=8 THEN 
IF 00=1 THEN 
LET 01=01+1 
IF 01>2 THEN 



"INSTRUCT IONS 

00 

4£8 
3£0 



(1=YES 



y=N0 j 



WHICH 



PRINT 
GO TO 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
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"THIS PROGRAM TESTS AN UNKNOWN POPULATION MEAN USING 
"STATISTICS. " 

"IT ASKS YOU FOR N? M? S? N? AND X" 



SAMPLE 



SAMPLE SIZE?" 

SAMPLE MEAN? " 

SAMPLE STANDARD DEUIATION? " 

POPULATION SIZE CZERO? IF INFINITE]?" 

POPULATION ME AM TO BE TESTED." 



PRINT "WHERE N 

PRINT " M 

PRINT " S 

PRINT " W 

PRINT " X 

PRINT 

PRINT "N? M? S? W? X = "5 

INPUT N?M?S?W?X 

LET D=N-1 

PRINT 

PRINT"BASED ON STUDENT'S T-BISTRIBUTION WITH"?D?" DEGREES OF FREEDOM? 

PRINT"THE PROBABILITY OF FINDING A SAMPLE MEAN THIS MUCH "? 

IF M<X THEN 5£8 

PRINT "GREATER"? 

GOTO 530 

PRINT "LESS"? 

PRINT " THAN THE" 

PRINT "POPULATION MEAN IS" 5 

IF W>8 THEN 578 

LET W=1E£5 
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57© LET S=S*SQR C ( W-l ) .-- (H®D) ) 
589 LET B1=(M-X;i.-'S 
599 LET El=El*FNTfEl) 
699 G05U.B 680 

619 IF B£<.5 THEN 630 

620 LET B£=l-B£ 



4E-5 THEM 660 
i E-5* I NT ( . 5+ 1 E5^E£) 

"LESS THRN i IN 100? ©00. 



:-4.5 THEN 800 
:0 THEN 770 



THEN 740 



-'H 



630 IF ES- 

640 PRINT 

650 STOP 

660 PRINT 

67@ STuP 

680 IF EL 

690 IF El- 

780 IF El 

710 LET E£=l 

780 GOTU 810 

730 IF 00=1 THEN 

740 GOSUE 880 

750 LET E8=Q 

760 GOTO 818 

778 GOSUE 888 

788 LET B£=I-Q 

790 GOTO 818 

880 LET E£=0 

310 RETURN 

8£0 LET Z=10*RBS(Bi) 

838 LET K=INT(Z) 

848 LET D1=Z-K 

858 LET Q = XCK+1) + D1*FMD(K+S) 

868 LET Q=1E~6*TNTC.5+. 1*QV 

878 RETURN 

9999 END 



(B1*(D1-1 ) ••-Si *(FND (K+3) -FND (K+l ) ) 
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STEEL: 

DESCRIPTION 

Steel calculates a number of quantities for steel sections used as beams 
and supports. It performs its' calculations for any "I" or "WF" steel sec- 
tion. For beams it can compute stresses not included in charts or tables 
in the AISC Handbook. 



USERS 

Homeowners, construction companies, engineers or anyone who is planning 
to design any structure requiring some form of steel supports will find 
this program both useful and helpful. 



INSTRUCTIONS 

The program is self instructing and features a full prompting mode. List 
the program for instructions or type RUN and it will ask you if you would 
like to know how to enter your data. Before you can solve your problem 
your data must be entered in data statements starting in line 1400. 



LIMITATIONS 

The source code for Steel requires 5K Bytes for storage and the program 
should execute in most Basic systems with 7K of available memory. 
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; i t f-1 F !'. 1 8 3 ? "[' C 1 1 ? S f 1 8 .'! -- C i 1 y "i ? L L 10 J 

F'P INT "IF YOI I WISH METHOD FOR ENTERING DATA TYPE U" 

PRINT" IF NOT TYPE' 3, " 

INPUT F9 

IF F9>1 THEN 1 J £ 



TIONS RES. MOM. CAP. " 
7IV7B FOR COMBINED" 
TRESS. " 



AXIAL LTD? YP" 



PRINT" THIS PPOGRFlM CONFUTES FOR HF AMD I SEC" 

PR I NT "AXIAL LTD CAP,? AND SOLUES FORMULFlS 6» 

PRINT"DIRECT STRESS RND BENDING FOR FlMY YP S" 

PR I NT" ENTER DATA FlS FOLLOWS : " 

PRINT" 1488 DFiTFi M CflB'T X AX I S3 ? MfFlB'T Y AXIS) 

PRINT" IN PS I? C SUE N. IF M(X3>8." 

PRINT" 1418 IiflTA B CFL 5 GE3 ■> T (WEB) j T (FLT GE 3 ? B? S ( X3 < L IN INCHES. " 

PF: I NT " I F P >0 ? 1 4£8 LATA A ? L ( X 3 ? L ( Y 3 ? R f X 3 ? R C Y 3 ? K ( X 3 ? K ( Y 3 < Q f O F'OR " 

PRINT" SECONDARY MEMBER? 1 FOR MAIN MEMBER 3 " 

PR I NT "ENTER MOM. IN PF AND AXIAL L'H IN PDS. " 

PRINT" PPOGPRM CURRENTLY NOT SET TO CHECK FOR BENDING flE'T" 

PR I NT "Y AXIS. SET NlAB'T Y RXIS3=0." 

LET Y=0 

LET W=i 

LET F=8 

LET X=0 

LET U=0 

REHD M4 ? ilt. ? F" 1 ? F ( Y 3 ? C3 

IF M4=0 THEN 138 

READ B?TCM3 ?T(F3 jB?S(X3?L 

IF P1=0 THEN 150 

READ Fl£? Li ? L£? Rl ? R£? Kl ?K£? Q 

LET C=SQR ( E*3 .141 6t £*£9E+6^F ( Y 3 3 

LET C ( 1 3 = I NT ( 1 8*C+ . 5 3 .-- 1 8 

PR I NT "C SUB C = " C r 1 1 

IF M4=0 THEN 798 

LET fl=(B-T(W) 3 .- r £shj r F 3 3 

IF A > 1 688/SQR i F l Y 3 3 THEN 438 

LET J=D.--TfW3 

IF -J>13380^SQR(F (Y3 3 THEN 438 

LET G=£480 S B.^SQR C F ( Y 3 3 

LET H=£E+7SB*TrF3.--'CIi«FfY3 3 

IF G>H THEN 338 

LET Gl = INT(18^G+.53.--10 

PR I NT " L ( C 3 I N I NCHES= " G 1 

IF L>G THEN 433 

GO TO 350 

LET H1=INT(10SH+. 53/10 

PRINT"L(C3 IN INCHES="H1 

IF L>H THEN 438 

LET F3= . 66&F ( Y 3 .■•- 1 888 

LET F4=1NT(F3+.51 
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379 PPIHT'TCBJ in KSI = "F4 

375 LET F5=F4 

339 LET G3=F4 

398 IF P1>0 THEM 799 

400 LET M=Ss>!)*F4.-"l£ 

410 PR I NT "M IN KF="M 

4£0 GO TO 710 

433 LET Fl=.6*T"i:Y3.--1000 

440 LET F5=IMT(Fl+.5) 

450 PRINT"F(B) IN F'SI = "F5 

460 LET G3=F5 

480 LET K=I£E+3® i;b®T (F) :i.--"iD*F5} 

490 LET LCU)=INT(M 

500 PPIffT'LtU) IN IMCHES="L(U) 

510 IF LCUKL THEN 553 

515 IF P1>0 THEM 790 

5£0 LET M£=S(X)*F5^1£ 

530 PRJNT"M£ IN KF="M£ 

540 GO i 9999 

550 LET P=SQR ( f T ( F ) ®Bt3 J •- ( I P&B&T f F ) +T ( W ) ® ( B-£ ffi T f F ) .••-6 ) ) ) 

560 LET R=INT(100*P+ a 5L--100 

570 PRINT"R="R 

580 LET f1=L.--R 

590 IF N<40 THEN 639 

600 PRINT "URLUE OF FEB) IN FORMULR 4 IS"? 

610 INPUT C£ 

6£0 LET I=i:i-fL.-R)f£,-(£WCflJt£SC£i)»;.0006SF(Yl 

630 LET Z= 1 2E+3*B*T ( F ) .-" f L*D ) 

640 IF Z>I THEN 7£0 

6 SO LET F6= I NT ( 1 m I + . 5 ) s 1 O 

660 PRINT"FCBJ FROM FORMULA 4 IN KSI="F6 

670 LET G3=F6 

680 IF Pl>© THEN 790 

690 LET M3=SCX)^F6.-'1£ 

700 PRINT " M3 IN KF= "M3 

710 GO TO 9999 

7£0 LET Ff£)=INT(Z) 

730 PRINT"Fi:£l FROM FORMULR 5 IN KSI = "F(£'i 

740 LET G3=Fi:£) 

750 IF P1>0 THEN 790 

760 LET Mi=S I :-;)**-(£), --1£ 

770 PRINT"M1 IN KF="M1 

780 GO TO 9999 

790 IF Q>0 THEN 980 

30 LET H3=L1.-R1 
840 PRINT"L>:.4?K="Fl3 
850 LET H4=L£.--R£ 
i:60 PRINT"LY.--RY="R4 
579 IF R3>=R4 THEN 900 
:"3@ LET fl5=R3 
890 IF R3<fl4 THEN 910 
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900 LET A5=R4 

916 IF R5<=1£0 THEM 980 

9£0 IF R5>CC1) THEN 11 £8 

939 LET S= 1 . 67+3*P5/ ( 8*C (13) -A5f 3--" ( 8*C ( 1 J t3 ) 
933 PRINT"F.S.="S 

935 LET F9= t i ~R5T£/ i £®C C 1 3 t£ 3 ) W I Y3 ••-' ( 3** 1 1 . 6~A5.-"£80 3 3 

940 GO TO 1175 

980 LET fl3=Kl*Li/Ri 
990 PPINT"Ki*Ll^Rl="n3 
1000 LET Fl4=K£^L£.--P£ 
1010 PRINT"K£SL£/R£="FI4 ■. 
1O£0 IF A3<=A4 THEM 1053 
1033 LET R5=R3 
1040 IF R3<R4 THEM 1060 
1050 LET R5=R4 
1068 IF A5>Cil3 THEM 1170 

1 065 LET 3= 1 . 67+3*Fl5 / { 8C(D) -AStS.-- ( 8*C ( 1 3 1 3 3 
1067 PRINT"F.S.="S 

1 070 LET F9= C 1 -R5 1£.-- ( £*C 1 1 3 1£ ) 3 W ( V 3 sS 
1075 GO TO 1175 

1 1 £0 LET F9= ( 1 49E+6.--R5TE ! -" ( 1 . 6-fl5.--£0« 3 
11 £5 GO TO 1175 
1173 LET F9=149E+fc.--R5t£ 
1175 PRINT"FCFl3="F9 
1180 IF M4>0 THEN 1£68 
1198 LET P£=F9«R£ 
1£00 PR INT" P=" Pe- 
lt: 10 IF P£<P1 THEM 1£40 
1££0 LET Ql = (P£-P13--Pr* ; 100 

1£30 PRINT" CFA-P3 -•P="Q1 "PERCENT UNDERSTRESS" 
1£35 GO TO 9999 
1 £40 LET Q 1 = ( P 1 -F'£ 3 -"P 1 * 1 0@ " 

1 £50 PR I NT " r P-FFi 3 .- P= " Q 1 " PERCENT OUERSTRESS " 
1£55 GO TO 9999 , 

1£60 LET G£=P1.-'R£ 
1£70 LET G4=G£.--F9 

1£71 IF J>13300«(l-1.43«G43x-SQRCFCY3 3 THEN 1390 
1£75 PR I NT" SMALL Ffl-CRP FA="G4 
1£90 LET G5=M4*i£VS(X) 
1£95 IF G4>. 15 THEN 1330 
1300 LET G6=G4+G5.--(G3^10y03 
1 3 1 3 PR I NT " FORMULFl ( 6 3 = *' G6 
13£0 GO TO 9999 
1330 LET G7=149E+6.--R3t£ 
1340 LET GS=G£--G7 

1350 LET G9=G4+C3*G5^ ( (1-^G8 3 ®G3$1800) 
1 360 PRI NT " FOPMULFI ?ft= " G9 
1363 LET Fi = .6*FCY3,-'j000 
1365 LET F5=IMTiFl+„53 
1370 LET H£=G£x i:F5 ffi 10003+G5.^(G3^10003 
1 380 PR I NT " FORMULA 7 E= " H£ 
1385 GO TO 9999 
1390 PRINT ,! H,--TCWEB3 TOO GREAT" 
1 400 DATA 40000 ? ? £0000 ? 36000 j . 6 
1 410 DATA 6. 5? . £4 ? . 4 ? 1 1 . 96? 34. 1 ? 144 
14£0 DATA 7.97? 144? 144? 5.06s 1.44? 1? Is 1 

9998 REM 

9999 END 
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TOP; 

DESCRIPTION 

Top calculates the cost of materials required to pave a road or other sim- 
ilar surface. This surface could be a driveway, shopping center parking lot, 
or even a highway. Top will also compute the number of tons of material 
needed to do the paving. 



USERS 

Homeowners, construction companies and state highway departments will all 
be able to put this program to good use. 



INSTRUCTIONS 

The program is self prompting and will prompt for all required inputs. 
Line 110 sets the amount of material; in tons, required for a one inch 
covering per square yard. This quantity is set at 0.055 but may be changed 
to suit your needs; it is material dependent. After Top has been loaded 
into memory type RUN. 



LIMITATIONS 

Lines 790 and 870 contain TAB( ) statements and lines 810, 830, 870, and 
880 contain Print Using statements. The source code for Top will store in 
5K Bytes of memory and will require 9K Bytes of memory for execution. 
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1 OREM 

£8EEM THIS BASIC PROGRAM CALCULflTES THE COST AND NUMBER OF TONS 

38REM OF PAUEING MATERIAL THAT HILL BE NEEDED TO PAUE A ROAD. 

40R.EM 

60REM 

78EEM INSTRUCTIONS— TYPE RUN. THE PROGRAM HILL ASK FOR THE HEEDED 

71 REM INFORMATION. AFTER THE DATA IS ENTERED THE OUTPUT WILL. BE PRINTED, 

7£REH 

7SREM 

74REM 

SOREM 

9i3 REM 

9 SEEM 

q^p^f^^^jK^K^SKJK^W^WJK^iK^Ki^: MAI N PROGRAM *'£lffi»:$£WffiffiWKSffi&W$3fi®5Kffiffi$'*:Wffi»: 

99REM 

100 DIN HC50J ? L(50) ? TOO) ?Mf50J ? Sl5@j ?U(50) 

105EEM TONS.-SQ.-~YB. 5 FOR 1 IN. COHERING 

110 LET Cl=.055 

ISO PRINT" BO YOU HflUE" PRICES AVAILABLE FOR MIX"? 

ISO INPUT A$ 

140 IF A£="MO" THEN £40 

ISO LET .JS=1 

160 PRINT 

178 PRINT" ENTER PRICE-TON OF !--£ INCH STONE MIX"? 

ISO INPUT PI 

198 PRINT 

£80 PRINT" ENTER PRICE-TON OF 3/4 INCH STONE NIK"? 

£10 INPUT PS 

££8 PRINT 

£3@ GOTO £68 

£48 LET J8=£ 

£58 GOTO £68 

£68 PRINT" ENTER THE TOTAL NUMBER OF SEGMENTS" 

£78 PRINT"TO BE PflUED"? 

£88 INPUT N 

£98 LET H=l 

388 PRINT 

318 FOR 1=1 TO N 

3£8 IF I>1 THEN 538 

338 PRINT " 

SEGMENT NO. 1 

348 PRINT" ENTER WIDTH OF SEGMENT NO. "JIS 
358 INPUT WC I) 

368 GO TO 388 
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389 PRINT 

390 PRINT" ENTER THE LENGTH OF SEGMENT MO. "5 15 
4@0 INPUT LCI) 

410 PRINT 

480 PRINT" ENTER COUERING THICKNESS IN INCHES THAT IS DESIRED" 

430 PRINT "FOR SEGMENT NO. "! IS ".USE DECIMAL NOTATION FOR " 

440 PRINT "FRACTIONS OF AN INCH " ! 

450 INPUT TCI) 

460 PRINT 

470 PRINT"FOR SEGMENT NO. " ? I ? 'S SPECIFY STONE MIX BY TYPING" 

48a PRINT" '1' FOR I .-"£ IN. MIX? OR '£' FOR 8,-"4 IN. MIX. "J 

490 INPUT SCI) 

500 PRINT 

5 1 GOTO 590 

580 PRINT 

530 IF I>8 THEN 570 

540 PR I NT "FOR SEGMENTS 8 — " 5 M 5 "ENTER FOUR PIECES OF DATA. THE WIDTH" 

550 PPINT"THE LENGTH? THE THICKNESS? AND THE STONE MIX." 

560 PRINT 

570 PRINT "SEGMENT MO. 'SI? 

580 INPUT W C I ) ? L C I ) ? T C I ) ? S C I ) 

535 REM SO. YDS. OF SURFACE 

590 LET U C I ) = C L 1 1 ) *Ti CD) --"9 

60O LET Ni=Ni+UCI) 

605REM TONS FOR THIS SEGMENT 

6i0 LET MCI)=UCI)#Cl*n-m 

680 IF SCI) =8 THEN 650 

685REM 'CUM. TOTAL OF 1.--8 IN. MIX 

630 LET S1=S1+-MCI) 

640 GOTO 660 

645REM 'CUM. TOTAL OF 3^4 IN. MIX 

650 LET S8=S£+MCI) 

660 REM 

670 NEXT I 

680 GOSUB 79@ 

69@ GOTO 940 

700 PRINT 

710 PRINT 

780 PRINT 

733 PRINT " " 5 "TONS"? "TONS" 

740 PRINT "SEGMENT'S "1.-8 INCH'S "3- -4 INCH'S "SO. YD8. IT!" 

750 PR I NT "NUMBER"? "STONE MIX'S "STONE MIX'S "PANE" 

760 PRINT" ================================================================ 

770 PRINT 

780 FOR 1=1 TO N 

790 PRINT TABC1) ? I? 

00 IF SCI) =8 THEN 830 
8 1 PR I NT US I NG 835 ? TAB C 1 3 ) ? M CI)i TAB C 43 ) ? U C I ) 

SO GO TO 840 
3 SO PR I NT US 1 NG 835 ? TAB C £7 ) j M C I ) ? TAB C 43 ) 5 U ( I ) 
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835s ######„ ### 
848 PRINT 
858 NEXT I 

860 PRINT" " ? " " 9 " " » : ' " 

865 PRINT "TOTALS "5 

870 PRINT USING 835? TAB ( 13) 5 SI ? TAB (£7) 5 33J TAB (43) 5 Ml 

380 PRINT USING 898? (F1*S1 )+ (P£*S£) 

890 s TOTAL COSTS— $########.## 

900 PRINT 

9i0 PRINT 

920 PRINT 

930 RETURN 

940 PRINT" DO YOU HISH TO MAKE ANY CHANGES IN" 

950 PR I NT "COWERING THICKNESS OR STONE SIZE MIX" 

960 PRINT "FOR AMY SEGMENT"? 

978 INPUT As 

988 IF fl$="NO" THEM 1718 

990 PRINT 

1800 PRINT" IN HOW MANY SEGMENTS BO YOU WISH TO MAKE CHANGES" ' 

1018 INPUT R 

1080 PRINT 

1030 PRINT" POR EACH CHANGE? ENTER SEGMENT NUMBER TO BE" 

1040 PR I NT "CHANGED? THE NEW THICKNESS IN INCHES (DECIMAL" 

1058 PRINT "FOR FRACTIONS OF AN INCH)? AND THE NEW STONE" 

I860 PR I NT "SIZE MIX (1 FOR 1^8 IN.?£ FOR 3^4 IN.). IF YOU" 

1878 PRINT"WISH TO CHANGE ONLY ONE OF THESE? TYPE ? 8> FOR " 

1888 PR I NT "UAR I ABLE NOT TO BE. CHANGED" 

1098 LET B=l < ■ • 

1188 PRINT 

111© PRINT 

1180 FOR 1 = 1 TO P. - 

1138 PRINT" FOR CHANGE NO. "51? 

1140 INPUT X?Y?Z 

1150 IF Y=0 THEN 1£90 

1160 IF Z=8 THEN 1398 

1178 IF Z=£ THEN 1£30 

1188 LET S£=S£~M(X) 

1198 LET S(X)=1 • .... 

1£88 LET MCX)=Ui;X)*Gl*Y 

1£10 LET S1=S1~MCX) 

1££0 GO iO 1£70 

1£38 LET S1=S1-M(X) 

1£40 LET S(X)=£ 

1350 LET MCX)=U(X:i^Cl^Y 

1£60 LET S£=S£+M(X) 

1£78 LET T(X)=Y 

1£88 GOTO 1530 

1S90 IF Z=8 THEN 1500 

1308 IF Z=£ THEN 1350 

1310 LET S£=S£-M(X) 

13£0 LET S1=S1+M(X) 
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1333 LET 3 00=1 
1343 GOTO 1530 

1359 LET Si=SH1i>:) 

1 360 LET S£=S£+M ( X '! 
1373 LET SiK)=2 

3 33M GOTO 1 533 

1330 IE 3 CX 1=3 THEN 1450 

1430 LET 31 =31 -TICK) 

1413 LET M(X)=U(X)*€i*Y 

1430 LET T(X)=Y 

1430 LET S1=S1+MCK) 

1440 GOTO 1530 

1450 LET S£=S£-Mi:X) 

1 460 LET M C X j =U C >■, ) »=C 1 ffi Y 

1*470 LET TCK}=Y 

1433 LET S£=S£+M(K1 

1490 GOTO 1533 

ISO© PRINT" YOU HflUE NOT REQUESTED R CHRNGE. FOR THIS" 

1510 PRINT "SEGMENT - RETYPE IT." 

15£0 GOTO 1133 

1530 NEXT I 

I 543 PRINT 

1550 PRINT 

1560 PRINT 

1570 PRINT" RESULTS FOR ALTERATION NO. "5E 

1580 PRINT 

1590 GOSUB 700 

ISO© PRINT" BO YOU WISH TO MAKE FURTHER CHANGES"; 

1610 INPUT A$ 

1630 IF R$="NO" THEN 1710 

1630 LET B=B+1 

1640 PRINT 

1653 PRINT 

1660 PRINT 

1673 PRINT" IN HOW MANY SEGMENTS TO YOU WISH TO MAKE CHANGE?:" 5 

1680 INPUT R 

1690 PRINT 

1700 GOTO 111© 

1710 END 
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VARY: 

DESCRIPTION 

This program analyzes a variance table of one-way random design. Identical 
values or observations may be grouped together, followed by the number of 
times that value occured; when entering data. 



USERS 

Statisticians and engineers will be able to put this program to good use 
as well as individuals whose studies produce data requiring reduction. 

INSTRUCTIONS 

Before the program is run the data must be entered into data statements, 
starting in line 900. The data is entered in the following sequence: 

900 DATA A,M 

910 DATA N1,N2, NM 

920 DATA T1,T2, TM 

where 

A - is the total number of observations 

M - is the number of different runs 

N - is the number of observations per run 

T - is the number of different observations per run 

Then enter the data starting with the first point of the first run, then 
the second point, and so on, as: 

930 DATA R1(1),R1(2),R1(3) 

940 DATA R2(1),R2(2), 

9.. DATA RM(1),RM(2), 

If there are more then 10 runs and/or if there are more then 20 observa- 
tions per run, change the DIM statements in line 100 to accomodate your 
data size. REMEMBER increasing the DIM statements increases the amount of 
memory required for execution. 

LIMITATIONS 

This program uses two dimensional arrays, starting in line 100. Lines 115 
and 117 contain MAT READ statements. If your system does not have these 
statements refer to Appendix A for a definition of the statements and/or 
Appendix B for conversion listings. The source code requires 3K Bytes for 
storage and 9K for execution, with the DIM statements set as they presently 
are. 
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10 REM DESCRIPTIONS COMPUTES THE ANALYSIS OP VARIANCE TABLE 
SO REM FOR fi ONE-WAY COMPLETELY RANDOM 1 ZED DESIGN, 

30 REN THIS IS EXACTLY THE SAME AS Umnce 2 EXCEPT THAT THE OBSERVATIONS 

31 REN INSTEAD OF CONSISTING OP A SIMPLE LIST? CONSIST OP A LIST OP 
3£ REN PAIRS OP NUMBERS? THE 1ST OF WHICH IS AN OBSERVATION UAUJE? 

33 REM AND THE END OF WHICH IS THE NUMBER OF OBSERUATIONS TAKING ON 

34 REM THAT VALUE. 

40 REM INSTRUCTIONS: ENTER DATA IN LINE SO© AND FOLLOWING. 

SO REM ENTER DATA IN THE FOLLOWING ORDERS 

60 REM 1) fij THE TOTAL NUMBER OF OBSERUATIONS 

70 REM £3 M ? THE; NUMBER OP DIPPEREMT TREATMENTS 

SO REM 33 Nil 3 j . . . ?N(M3 ? WHERE NCJ3 IS THE NUMBER OP OBSERUATIONS 

81 REM IN TREATMENT J 

8£ REM 43 U i 1 3 , . . . ? U (M3 j WHERE UCJ3 IS THE NUMBER OF DIFFERENT 

83 REM URLIJES TAKEN ON BY THE OBSERUATIONS IN TREATMENT .J 

84 REM 53 THE OBSERUATIONS THEMSELVES* 1ST FOR TREATMENT 1 , THEN FOR 

85 REM TREATMENT £ ? ETC. FOR EACH TREATMENT THESE WILL BE IN THE 

86 REM FORM OF A LIST OF PAIRS OF NUMBERS? THE 1ST OF WHICH IS AN 

87 REM ACTUAL OBSERVATION VALUE TAKEN ON B9 AT LEAST ONE OBSERVATION 

88 REM IN THAT TREATEMENTj AMP THE END OF WHICH IS THE NUMBER 

89 REM OF OBSERVATIONS IN THAT TREATMENT TAKING ON THAT VALUE. 

90 REM IF ANY NCJ3 >£0 CHANGE THE DIMS IN LINE 199 

91 REM IF M > 10, CHANGE THE DIMS IN LINE 160 

1 00 it I M X C £0 j 1 8 3 ? N ( 1 3 j T ( i 3 ? S C 1 @ 3 ? Y ( £0 ? 1 © 3 ? V f 1 3 

1 13 READ A? M 

115 MAT READ MCM3 

117 MAT READ V(M3 



1£0 


FOR J = 1 TO N 




130 


FOR I = 1 TO UCJ3 




140 


READ X£I?.J3 sYCIiJ) 




150 


NEXT I 




1 60 


NEXT J 




170 


FOR J = 1 TO M 




ISO 


FOR I = 1 TO UCJ3 




1 90 


LET TU3 = Ti'J) + Xa,.J3~r 


a ? 03 


£00 


LET SCJ3 = S(J3 + X i I ? J3 '&■>■ 


CI? J3'*YCIj 


£10 


NEXT I 




££U 


LET U=U+TU) 




£30 


LET R=R+SCJ3 




£40 


LET V=V+T i J 3 *T C J 3 •-N ( J 3 




£50 


NEXT J 




£60 


LET C = U^U-'-R 




£70 


LET W = V - C 




£80 


LET E = R - V 




£90 


PRINT "ANOVA TABLES " 




300 


PRINT 




310 


PRINT "ITEM" ? " SS"? 


H 


3£0 


PRINT 





Tip I 
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339 PKIN! "GKHNU TOTFlL T ? E? Fi 

340 PRINT "GRAND MFIFlM'SCsl 

35Q PRINT "TREATMENTS"? N? M-i? W-^CM-J. ;i 

330 PRINT " ERROR" ?E<H-M ?£.■••' (H-M 3 

370 PRINT 

380 PRINT 

390 LET E = (!.=.|.---'i"N- 1 1 "i .-•■" i. E.-- - '(fl-M) ) 

400 PRINT "F ="F " OH "11-1" AND" R-M" DEGREES OF FREEDOM," 

40£ LET G=F 

403 LET N=R-N 

404 LET M=M-1 

4 05 GOSUE 800 
41.0 STOP 

800 REM 

808 LET P=l 

80S IF G<1 THEN 80S 

804 LET A=M 

885 LET E=N 

soo LET F=G 

807 GO TO 81 i 

888 LET R=N 

889 LET B=M 

810 LET F=1^G 

8 1 1 LET R 1 =£v f. 9^Fi 3 
8 1 8 LET8B 1 ='?■■■■' ( 9®B 3 

8 1 3 LET Z=RES ( C 1 -E 1 3 Wf i . 333333 3 - 1 +H 1 3 

8 1 4 LET' Z=Z--"SQR f E 1 W t C . 666667 3 +fl 1 3 

815 IF E<4 THEN 819 

8 1 6 LET P= f 1 +Z® ( . 1 96854+Z& (.11 51 94+-Z s ( , 80O344+Z« „ 8 1 9587 3 3 3 3 f 4 

817 LET P=„5.--P 

818 GO TO 88 i 

8 1 9 LET Z=Z* ( 1 + , 88* : Zt4.-"Bt3 3 
880 GO TO 816 

831 IF G<1 THEN 883 

883 LET P=l-P 

884 GO TO 885 

885 PRINT 

886 LET P = INT f 188000 K P 3 -''100008 

887 PRINT "EKfiCT PROB. OF F="5G5 "WITH ( "MS" * "N5 " 3 d.F. IS "!P 

888 PRINT 

889 RETURN 
99999END 
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SAMPLE RUN 












TDD 


DATA 


25,5 










TDS 


DATA 


5, b, 11, 4,2 








TD7 


DATA 


2,4,S : 


,3,2 








11D 


DATA 


dB , 1 , 


□ 5)1 








TSO 


DATA 


fl4,l, 


o S , 2 , fib , 


2, 


fl7,l 




=i3D 


DATA 


fl b , 1 , 


fir , 3 , fifi , 


s, 


a i , 1 , 


■=10,1 


14D 


DATA 


fiT,l, 


TO, 2, 11, 


1 






T50 


DATA 


TD,1, 


■^2,1 








RUN 














ANOVA TABLE: 










ITEM 






SS 




DF 


MS 


GRAND TOTAL 


ni?ii 




2S 




GRAND [1EAN 




nibbfl.fi 




1 




TREATMENTS 




^.Q2344 




4 


24. 7556b 


ERROR 




23.13b72 




20 


1.15bfl3b 



F = 21.31^3 ON 4 AND 20 DEGREES OF FREEDOM^ 



EXACT PROB. OF F = 21.3T=ib3 WITH ( 4, 2D ) D-F. IS 
l.DDDDDE-05 
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XF1AS: 



DESCRIPTION 

This is a sing-a-long Christmas card. It not only prints the 
the song but it also draws small pictures between each verse 
eludes a special ending. 



lyrics to 
and in- 



INSTRUCTIONS 



The program is ready to run upon being loaded into memory, just type RUN. 



LIMITATIONS 

This program should execute without problem in most 4K Basic systems. The 
source code requires 5K to store and will execute in 6K Bytes of available 
memory. Immediately following the source code listing is a partial execu- 
ted run of XMAS. Only a part of the sample run is included as the program 
generates a very unusual ending. Thus it will be necessary for you to run 
the program in order to find out what happens at the end. 
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iyyREM ymhs basic program begins fit lime: £10 

110REM 

1 SOREM fl SING-MLONi>PPOGRAM 

1 39REM 

H8REM DESCRIPTION: THIS BASIC PROGRAM PRINTS OUT A COPY OF 

158REM "THE: TWELUE DAYS OF CHRISTMAS" ADORNED 

155REM HITH APPROPRIATE HOLD I DRY SYMBOLS. IT IS 

160REM SUITABLE AS AN UNUSUAL CHRISTMAS CARD OR AS 

170REM SHEET MUSIC FOR A SING-ALONG. 

175REM 

1SOREM INSTRUCTIONS— TYPE "RUN" AND SING-ALONG 
1 SOREM 

S0OREM 

£18 PRINT" E U E: R Y B D Y S I N G" 

££0 PRINT 

£30 LET C=l 

£40 PRINT "ON THE"? 

£50 IF C=l THEN £90 

£60 IF C=£ THEN 310 

£70 IF C=3 THEN 33© 

£30 IF C>3 THEN 356 

£90 PRINT C;"ST"J 

300 GO TO 360 

310 PRINT C? "MD"? 

3£0 GO TO 360 

330 PRINT C5 "RU" 5 

340 GO TO 360 

350 PRINT C5 "TH"5 

360 PRINT " DAY OF CHRISTMAS" 

373 PRINT "MY TRUE LOUE SENT TO ME" 

330 IF C=l THEN 600 

390 IF C=£ THEN 590 

400 IF C=3 THEN 580 

4i@ tf C=4 THEN 573 

4£0 IF C=5 THEN 560 

430 IF C=6 THEN 550 

440 IF C=7 THEN 540 

450 IF C=8 THEN 530 

460 IF C=9 THEN 5£0 

470 IF C=10 THEN 510 

480 IF C=Ii THEN 500 

490 PRINT "TWELUE LORDS A-LEAPING?" 

SOW PRINT "ELEUEN LADIES DANCING:. " 

510 PRINT "TEN PIPERS PIPING?" 

5£8 PRINT "NINE DRUMMERS DRUMMING?" 
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538 PRINT "EIGHT MO IDS H-NILKING? " 

540 PRINT "SEUEH SWl-iNS R-SWIMMING? " 

550 PRINT "SIX GEESE: fi~! HYING? " 

560 PRINT "FIUF GO-OLD RINGS 5 " 

570 PRINT "FOUR COLLY BIRDS? " 

580 PRINT "THREE FRENCH HENS?" 

590 PRINT "TNn TURTL EDOUES AND" 

600 PRINT "R PARTRIDGE IN A PEAR TREE. " 

610 PRINT 

6£0 GOSUE 660 

630 IF C=l£ THEN750 

640 LET C = C+l 

650 GO TO £40 

660 PRINT 

6F0 PRINT" Q" 

680 PRINT " ;*" 

s-.QQ F'RIMT " *r?:S:" 

700 PRINT " msss" 

710 PRINT" I" 

7£0 F'KINT 

780 RETURN 

740 LET X=0 

750 PRINT 

760 PRINT 

770 LET N=0 

788 LET X=X+i 

790 PRINT " " ? " " ? " O" 

800 PRINT" "5 " " j " «" 

810 PRINT " "?" "5 " s*s<> 

8£8 PRINT " "?" " 5 " sfi^s-ffi" 

830 PRINT " "5" "? " asSSHpiS" 

848 LET N=N+i 

858 IF N=i THEri 888 

86@ PRINT " "5" ";" ^sfiffi's'ssw*" 

878 PRINT " "?" "? " -ssgssQffissQS" 

888 PRINT " "5 " "j i! H0s«5K3K:*3K5K5SW#:i«3fi " 

898 LET N=N+1 

980 IF N=3 THEN 868 

918 PRINT " "j" "? ,, :-s : ^:«fi5K3K@ssK3«i.~i5S'*:i."i»=" 

928 PRINT " "? " »;y»;"*;»;s;i;1*;ffi!«s^Kl.^s:•lSffiS' , 

938 PRINT " "j" :5:S^»■^1ffi^Si71ffiSK^•^Si<^•f1ffiS»: ,l 

948 IF N=4 THEN 888 

958 PRINT " "?" •ftyssssssKWQifiSffii.jiffiffiisgffiffi 11 

968 PRINT " "? " s^ffi>:^@ss0M"^ffiwi^l^;ffiKffil.~1ffi*:»:5s»:»fR ,, 

970 PRINT " "? " '&0&.'#&.0&Q'&&'#Q&&.0&&.0&&&.i%&&.&" 

988 PRINT " "? " K&M&fiKffiMfiffiMflffiMffiiriMffiM&ffiFiffiMBeESK" 

998 PRINT " "?" "5 "8 f! Ill Pi" 

1088 FOR S=iT03 

1818 PRINT " "5 " "5 " III" 

1028 NEXT 8 

1038 PRINT 
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^11 



:& 


SH 






fc'iftS: " 


:?:££ 


£~ 


■n| 




;&: i! 


: & 


& 


$*: 




;##; ,! 


'•& '•£ 


£~£&#r& 






S: 1 ' 


?k 


& 




f& 


: #ft;#&" 



1@4@ PRINT 

1060 PRINT''* * ft'ft'ft'ft ft ft' ft' ft"-*: ft' ft: •■& ;g s; :* %■#: ft" ft'" 

1 07"© F'RINT "'&■ *■ '*'■ W * * : # ; # *: *: ft ft' ft' SI ft" ft' ft' " 

IQStlPRIMT"-^ *= * * ; tt^*: ft' ft ft' ft' S: wft' ftft'ft'ft" ft" ft" ft ft' ft' ■' 

1099 PRINT ns * ; '#'* *= '■&&■ '*:S '* ft' ft ft" *; ;« a; W »;<> 

1100 F'RINT "=* *= ft'WIft'ft' ft ;£ ;# B*SS ft' ft' :g Bj! ■#■■& n 

1 110 FOR M=l TO 4 
1120 PRINT 
1 1 30 NEXT M 

\ \ 40 PRINT" '&■ ^ ft ftKifrft' ftft'ft' ft":«? : .ft' ft -a]" 

1150 PRINT " S| : ~ && «& '« ft ft' ft ft" Si ft » 

1 160 F'RINT " ■* * s s « «' s-ft'ft' ftft'ft' 

1170 PRINT" WftftHft' s «" ;« :* -s «' 

1 ISO PRINT " ft s * »: «;;tf;ff:tf &• ;# 

1 190 FOR M=l TO 4 

1200 PRINT 

1210 NEXT M 

1380 PRINT" sift's; «' »; s^ft' S: ftfttt'ft' ft'ft'ft-ft'ft- s; 

1239 PRINT " '« « a; « w w »; a 

1340 PRINT " * Wftft's? *s;s sg :*;«■ &• ;?: 

1350 PRINT" « * *! :« * ft' »; a; s 

1360 F'RINT " sis': *■ $• $• :*• $■ ft ^s^is '*' : 

1370 FOR M=l TO 4 

1380 PRINT 

1398 NEXT M 

1300 PRINT " 

13I0 PRINT 

1330 PRINT" 

1330 PRINT 

1340 PRINT" 

1350 FOR M=l TO 4 

1360 PRINT 

1370 NEXT M 

1380 PRINT" v w s :?: ftftft- 

1390 PRINT " '* « K w s; « ;« 

14@@ PRINT " *: *= fft'sift'ft'*-: s= s: »■«■#; 

1419 F'RINT" ft-fe'ft'ft'ft' &' si siio-isift'ft' s 

1430 PRINT " * : *: *:■■ ft ft' ft ft' 

1430 FOR M=l TO 4 
1440 PRINT 
1450 NEXT M 

146€1 PRINT " :* : *: ft"ft"ft'ft" ft" j 

147@ ppjj^j" sift- w s K H s 

1488 PRINT " *■ — - fi; ftftft s *" ft" r* 

1499 F'RINT" *■ *•*"• =£ «*: B:*: ft' ft S:w:ft"ft"S ft" ft'' 1 

1500 F'RINT " *= '*• MSSSSS: ft ft' ft ft'Si's-:*' ft ft "ft" ft"" 

1510 GO TO 750 
1 530END 





ft 


ft 


¥ s*-^" " 




ft' ft' 




^■fO; Hj^ ^ 


ft' 


v: ft 


ft' 


ft - a; s >i 




;n;i^^^jn^ 


ft' 


'•if'-tf '-f- *r li 


:£- 


ft" ft' 




^ ^ft'ft' " 



W'ft'ft" 




ft" 


ffi" 


ft" 


ft" 




ft : M " 


ft 






ft'" 
IS" 


ft" 






r^n 



f6: ft'ft"ft"ft" 


ft' 


ft'ft':"K" 


»: 


ft' ft 


'M ft" 


"ft'"ft'ft" 


ft' ft' 


Kft'ft"" 
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ttias example: 



"OLLONIHG IS IMF: PPT NT OUT 



Till THE PROGRAM "XMflS" HO! HO! 



HU 



Oil THE 1 ST DRY IT fHRISTMAS 

MY TRUE LOUEI SENT TO ME 

A PARTRIDGE IN Fl PEAR TREE. 



I 

ON THE £ NU .DRY OE CHRISTMAS 

MY TRUE LOUE SENT TO ME 

TWO TURTLED0UE8 flHU 

A PARTRIDGE IN Fl PEAR TREE. 



fl":*:*: 



ON THE 3 PI i PAY UE CHRISTMAS 

MY TRUE LOUE SENT TO ME 

THREE FRENCH HEMS? 

TWO TURTLEDOUES AND 

Fl PARTRIDGE IN Fl PEAR TREE. 
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<V&. 



of ■: 

TO ME 



IRISTMRS 



NY TRUE LOME SENT 
FOUR COLLY BIRDS? 
THREE FRENCH HEMS? 
TWO TURTLEDOUES Fir IP 
fl PARTRIDGE IN Fl PEFlR 



TREE. 



I 

ON THE TH "DAY OF CHRISTMAS 

NY TRUE LOUE SENT' TO ME 

FIUE GO-OLD RINGS? 

FOUR COLLY BIRDS? 

THREE FRENCH HENS? 

TWO TURTLEDOUES FIND 

Fl PARTRIDGE IN A PEFlR TREE. 






ON I HE 6 TH DAY OF CHRISTMAS 

NY TRUE LOUE SENT TO ME 

SIX GEESE A-LAYING? 

FIUE GO-OLD RINGS? 

FOUR COLLY BIRDS? 

THREE FRENCH HENS? 

TWO TURTLEDOUES AMD 

A PARTRIDGE IN Fl PEFlR TREE. 
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APPEND IX B 



STATEMENT 
CONVERSION 
ALGORITHMS 



SEE APPENDIX A FOR STATEMENT DEFINITIONS 



BASIC CONVERSIONS 

This appendix is intended to aid the users of this Library in correcting 
any syntax errors they may encounter when running any of the programs in 
this Library. This appendix is divided into two sections - Direct Changes 
and Indirect Changes. A Direct Change is one that only requires changing 
of an alphanumeric character to another one or involves only the correc- 
tion of a single line. These changes are fast and easy to make. Indirect 
Changes are those that require the statement in question to be deleted 
from the program and several lines of code substituted. 

The conversions are not separately listed for the various machines and 
manufacturers as there are a number of similarities between the various 
systems. To use this listing, first isolate the statements from the pro- 
gram^) that are not recognized by your compiler and then look up these 
statements in the Direct Change section. Now substitute the appropriate 
conversion for the program statement. If there is more then one conver- 
sion shown for the statement be sure the one you choose is referenced 
in the Basic Manual supporting your system. For statements not found in 
the Direct Change section go to the Indirect Change section and follow 
the same procedure. 

The conversions are especially designed to allow full compatibility be- 
tween these programs and a number of alien Basic compilers. If your sys- 
tem or compiler is not specifically mentioned it does not mean the con- 
versions listed here are not applicable; on the contrary they probably 
are in most cases, it only means that at the time of this writing an 
operators manual for your system was not available. This listing will 
be enlarged with each additional printing to incorporate as many dif- 
ferent systems as possible. The blank pages at the end of this section 
are reserved for future expansions. The following is a list of systems 
and/or Basic compilers that have been included in this appendix: 

Polymorphics 8K Sigma 9 

DEC RSTS - 11 IBM 370 

BASIC PLUS Honeywell 6000 

8K MITS Intercolor 8K 

4K MITS 8K IMSAI 

8K SWTPC 4K IMSAI 

4K SWTPC 8K ZAPPLE 

8K Processor Tech 2100 Hewlett Packard 

4K Processor Tech IBM 5100 

G.E. 635 
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DIRECT CHANGES* 


As 1 


Jsed In Li 


i brary 


May Have To Change To: 


1. 


RND(-X) 




RND(X) or RND(0) 


2. 


** 




l 


3. 


A$ & B$ 




A$ + B$ 


4. 


SPC(X) 




POS or POS(X) or see Indirect Changes 


5. 


CLK$ 




(Requires real time clock) 
(Processor Dependent) 


6. 


DAT$ 




(Requires real time clock) 
(Processor dependent) 


7. 


TIM(X) 




(Requires real time clock) 
(Processor dependent) 


8. 


PRINT USING 


PRINT (and Remove the # # Lines) 


9. 


PRINT ". 


H 


PRINT ' , , , ' 


10. 


Line Numbers > 9999 


Resequence numbers < 9999 


11. 


SST(X$, 


Y, Z) 


MID(X$,Y,Z) or 
MID$(X$,Y,Z) or 
STR(X$,Y,Z) 


12. 


FNEND 




(Remove if not in your Basic) 


13. 


IF GOTO 


IF THEN 


14. 


A5$ 




A$(5) or A$[5] 


15. 


MAT 




See Indirect Changes 


16. 


X(Y) 




X[Y] Where Y is any integer 


17. 


SQR( ) 




SQRT( ) 


18. 


RND( ) 




FRAND( ) 



If your Basic does not have string functions omit their references. 
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INDIRECT CHANGES 

1.) ON. ...GOTO 110,125,135,... 

Remove the above statement and insert the following routine: 

if.... = 1 GOTO 110 
if.... = 2 GOTO 125 
if.... =3 GOTO 135 

2.) CLG(X) 

Remove the above statement and replace it with: 
L0G(X)/(2. 3025851) 

3.) NUM(X) 

This statement is used to count the number of data points that are 
input during a MAT READ statement. If you know the total number of 
data points that are read into the matrix, then this number repre- 
sents NUM(X). If this statement is used with a MAT statement and 
your system doesn't have MAT statements place the following routine 
in the FOR NEXT loop used to evaluate the MAT statement: 

N9 = N9 + 1 

Be sure N9 is set to zero before the FOR loop is entered. After the 
loop is done, N9 represents the value of the NUM( ) statement for 
that location. This procedure must be followed each time the NUM( ) 
statement is used. 

4.) DEF FN_ = 

In place of the above statement substitute the following: 

XYZ F_ = 

where 

F = F0 to F9 

and XYZ is the line number where the DEF FN statement appears. 

XYZ+1 IF N = GOTO XYZ+3 
XYZ+2 RETURN 
XYZ+3 N = 1 

Then everytime FN is called substitute a GOSUB to XYZ. After the 
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return use F in place of the FN statement. If you have more 

then 10 different FN , ie: FNA, FNB, . .., FNM, then use F(l) 

for FNA and F(2) for FNB, etc. Remember F( ) must be dimension- 
ed for the maximum size needed, if it is greater then 10. 



5.) X 



The\ is a line separator and separates two statements placed on 
the same line. Leave the first portion of the line up to the \ 
mark as it is, then delete the portion of the line that appears 
after the\ . Add another line immediately below the first, num- 
ber it one number larger then the first line and type in the por- 
tion of the line that you previously deleted, leaving out the \ 
mark completely. 



6.) COT(X) 

Remove the above statement and substitute it with: 
1/TAN(X) 



7.) SPC(X) 



For most purposes this statement can be replaced by TAB(X). How- 
ever, there are a few fine subtleties that distinguish the two 
statements. While these differences are yery slight and should 
not come into play in any of the programs within this Library, 
if it should be necessary to generate the SPC(X) statement func- 
tion it can be done by using the following algorithm: 

FOR I = 1 to X 
* PRINT T" 
NEXT I 
* or PRINT T 

where # represents a Space character. 



8.) :###.## 



This is a Print Using control line. There is no equivalent if 
your system does not offer a Print Using statement. If you do 
not have this statement, then delete this line and change the 
Print Using statement to a Print statement. 
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9.) Change A to A$ 

and A(0) = X where A is a table 

Remove the above statement and insert the following routine: 

FOR J = 1 to X 

I = A(J) 

B$(J) = STR$(I) 

A$ = B$(J-1) + B$(J) 

NEXT J 

10.) Change A$ to A 

Remove the above statement and insert the following routine: 

I = LEN(A$) 
FOR J = 1 to I 
A(JB) = I 
* B$ = MID(A$,J,1) 
A(J) = VAL(B$) 
NEXT J 
* or B$ = MID$(A$,J,1) 

11.) ABS(X) 

Remove the above statement and replace with the following: 

XYZ IF X>0 GOTO XYZ+2 
XYZ+1 X = -X 
XYZ+2 REM ABS(X) 

12.) MAT READ A 

Where A is dimensioned as A(X,Y) 

FOR I = 1 to X 
FOR J = 1 to Y 

READ A(I,J) 

NEXT J 
NEXT I 
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Replace the MAT READ statement with the above algorithm. Be sure 
to enter the numeric values of the dimensions for X and Y in the 
above routine. 



13.) MAT INPUT A 

Where A is dimensioned as A(X,Y) 

FOR I = 1 to X 
FOR J = 1 to Y 

INPUT A(I,J) 

NEXT J 
NEXT I 

Replace the MAT INPUT statement with the above algorithm. Be sure 
to enter the numeric values of the dimensions for X and Y in the 
above routine. 

14. ) MAT A = ZER 

Where A is dimensioned as A(X,Y) 

FOR I = 1 to X 
FOR J = 1 to Y 

A(I,J) = 

NEXT J 
NEXT I 

Replace the MAT = ZER statement with the above algorithm. Be sure 
to enter the numeric values of the dimensions for X and Y in the 
above routine. 

15.) MAT A = CON 

Where A is dimensioned as A(X 9 Y) 

FOR I = 1 to X 
FOR J = 1 to Y 

A(I,J) = 1 

NEXT J 
NEXT I 

Replace the MAT = CON statement with the above algorithm. Be sure 
to enter the numeric values of the dimensions for X and Y in the 
above routine. 
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16.) MAT READ A,B,C 

Where A,B and C are dimensioned as: A(X,Y), B(R,S) and C(V,W) 

FOR I = 1 to X 

FOR J = 1 to Y 

READ A(I,J) 

NEXT J 

NEXT I 

FOR I = 1 to R 

FOR J = 1 to S 

READ B(I,J) 

NEXT J 

NEXT I 

FOR I = 1 to V 

FOR J = 1 to W 

READ C(I,J) 

NEXT J 

NEXT I 

Substitute the above routine for each MAT READ A,B,C statement. 

Be sure to enter the numeric values of the dimensions in these 
steps. 
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